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 1
  22 EOF
  23     cp "$srcdir"/src/lib/global/*.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
  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 cmp_out()
  74 {
  75     local opt exp act nrm msg ret=0
  76     for i
  77     do
  78         case "$i" in
  79         */journal.log)  opt=-j ;;
  80         */server.log)   opt=-s ;;
  81         *)              opt= ;;
  82         esac
  83         exp="$srcdir/tests/$test/${i##*/}"
  84         act="sandbox/$i"
  85         nrm="sandbox/normalized-${i##*/}"
  86         perl "$srcdir"/tests/normalize.pl $opt "$act" >"$nrm"
  87         if msg=`diff -q "$exp" "$nrm"`
  88         then
  89             echo "$exp OK"
  90         else
  91             ret=$?
  92             echo "$exp FAIL"
  93             echo $msg
  94         fi
  95     done
  96     return $ret
  97 }