Add a simple tool for checking split-query equivalence

This is not run automatically (although it could/should), but is very
useful during development.

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>

devel/check-split-query

+#!/bin/bash
+
+# Copyright (C) 2013 Google Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+# 02110-1301, USA.
+
+# Checks query equivalence between masterd and confd
+#
+# This is not (currently) run automatically during QA, but you can run
+# it manually on a test cluster. It will force all queries known to be
+# converted via both paths and check the difference, via both 'list'
+# and 'list-fields'. For best results, it should be run on a non-empty
+# cluster.
+#
+# Also note that this is not expected to show 100% perfect matches,
+# since the JSON output differs slightly for complex data types
+# (e.g. dictionaries with different sort order for keys, etc.).
+#
+# Current known delta:
+# - all dicts, sort order
+# - ctime is always defined in Haskell as epoch 0 if missing
+
+MA=`mktemp master.XXXXXX`
+CF=`mktemp confd.XXXXXX`
+trap 'rm -f "$MA" "$CF"' EXIT
+trap 'exit 1' SIGINT
+
+RET=0
+SEP="--separator=,"
+ENABLED_QUERIES="node group network backup"
+
+test_cmd() {
+  cmd="$1"
+  desc="$2"
+  FORCE_LUXI_SOCKET=master $cmd > "$MA"
+  FORCE_LUXI_SOCKET=query  $cmd > "$CF"
+  diff -u "$MA" "$CF" || {
+    echo "Mismatch in $desc, see above."
+    RET=1
+  }
+}
+
+for kind in $ENABLED_QUERIES; do
+  all_fields=$(FORCE_LUXI_SOCKET=master gnt-$kind list-fields \
+    --no-headers --separator=,|cut -d, -f1)
+  comma_fields=$(echo $all_fields|tr ' ' ,|sed -e 's/,$//')
+  for op in list list-fields; do
+    test_cmd "gnt-$kind $op $SEP" "$kind $op"
+  done
+  #test_cmd "gnt-$kind list $SEP -o$comma_fields" "$kind list with all fields"
+  for field in $all_fields; do
+    test_cmd "gnt-$kind list $SEP -o$field" "$kind list for field $field"
+  done
+done
+
+exit $RET