Synnefo » snf-ganeti

#!/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