git.pond.sub.org Git - empserver/blob - tests/test-common.sh

   1 export EMPIREHOST=127.0.0.1 LOGNAME=tester
   2
   3 if [ -x ./config.status ] && ./config.status --version | grep -q '^Wolfpack Empire'
   4 then :
   5 else echo "$0: Must be run in root of build tree" >&2; exit 1
   6 fi
   7
   8 test=${0##*/}
   9 test=${test%-test}
  10
  11 create_sandbox()
  12 {
  13     rm -rf sandbox
  14     mkdir -p sandbox/etc/empire sandbox/share/empire/builtin sandbox/var/empire
  15     touch sandbox/etc/empire/schedule
  16     cat >sandbox/etc/empire/econfig <<EOF
  17 data "../../var/empire"
  18 info "../../../../info.nr"
  19 builtin "../../share/empire/builtin"
  20 listen_addr "$EMPIREHOST"
  21 keep_journal 2
  22 EOF
  23     cp `git ls-files "$srcdir"/src/lib/global | grep '\.config$'` sandbox/share/empire/builtin
  24 }
  25
  26 now()
  27 {
  28     # date +%s isn't portable...
  29     perl -e 'printf "%s\n", time'
  30 }
  31
  32 start_server()
  33 {
  34     local pidfile=sandbox/var/empire/server.pid
  35     local timeout
  36     pid=
  37     trap 'if [ "$pid" ]; then kill -9 "$pid" 2>/dev/null || true; fi' EXIT
  38     src/server/emp_server -e sandbox/etc/empire/econfig -R 1 -s
  39     timeout=$((`now`+5))
  40     until pid=`cat $pidfile 2>/dev/null` && [ -n "$pid" ]
  41     do
  42         if [ `now` -gt $timeout ]
  43         then
  44             echo "Timed out waiting for server to create $pidfile" >&2
  45             exit 1
  46         fi
  47     done
  48     while src/client/empire red herring 2>&1 | grep -q "Connection refused"
  49     do
  50         if [ `now` -gt $timeout ]
  51         then
  52             echo "Timed out waiting for server to accept connections" >&2
  53             exit 1
  54         fi
  55     done
  56 }
  57
  58 stop_server()
  59 {
  60     local timeout
  61     kill "$pid"
  62     timeout=$((`now`+5))
  63     while kill -0 "$pid" 2>/dev/null
  64     do
  65         if [ `now` -gt $timeout ]
  66         then
  67             echo "Timed out waiting for server to terminate" >&2
  68             exit 1
  69         fi
  70     done
  71 }
  72
  73 begin_test()
  74 {
  75     src/util/files -e sandbox/etc/empire/econfig -f >/dev/null
  76     case "$1" in
  77     *.xdump)
  78         src/util/empdump -e sandbox/etc/empire/econfig -i "$1"
  79         ;;
  80     *)
  81         cp -r sandbox/var/empire/tel sandbox/var/empire/empty.tel
  82         start_server
  83         src/client/empire POGO peter <"$1" >/dev/null
  84         stop_server
  85         mv sandbox/var/empire/tel sandbox/var/empire/init.tel
  86         mv sandbox/var/empire/empty.tel sandbox/var/empire/tel
  87         mv sandbox/var/empire/journal.log sandbox/var/empire/init.journal.log
  88         mv sandbox/var/empire/server.log sandbox/var/empire/init.server.log
  89         ;;
  90     esac
  91     start_server
  92 }
  93
  94 end_test ()
  95 {
  96     stop_server
  97     src/util/empdump -e sandbox/etc/empire/econfig -x >sandbox/$test.xdump
  98 }
  99
 100 cmp_out()
 101 {
 102     local opt exp act nrm msg ret=0
 103     for i
 104     do
 105         case "$i" in
 106         */journal.log)  opt=-j ;;
 107         */server.log)   opt=-s ;;
 108         *)              opt= ;;
 109         esac
 110         exp="$srcdir/tests/$test/${i##*/}"
 111         act="sandbox/$i"
 112         nrm="sandbox/normalized-${i##*/}"
 113         perl "$srcdir"/tests/normalize.pl $opt "$act" >"$nrm"
 114         if msg=`diff -q "$exp" "$nrm"`
 115         then
 116             echo "$exp OK"
 117         else
 118             ret=$?
 119             echo "$exp FAIL"
 120             echo $msg
 121         fi
 122     done
 123     return $ret
 124 }