external/bsd/bind/dist/bin/tests/system/run.sh

   1 #!/bin/sh
   2 #
   3 # Copyright (C) 2004, 2007  Internet Systems Consortium, Inc. ("ISC")
   4 # Copyright (C) 2000, 2001  Internet Software Consortium.
   5 #
   6 # Permission to use, copy, modify, and/or distribute this software for any
   7 # purpose with or without fee is hereby granted, provided that the above
   8 # copyright notice and this permission notice appear in all copies.
   9 #
  10 # THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
  11 # REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
  12 # AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
  13 # INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  14 # LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  15 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  16 # PERFORMANCE OF THIS SOFTWARE.
  17
  18 # Id: run.sh,v 1.42 2007/06/19 23:47:00 tbox Exp
  19
  20 #
  21 # Run a system test.
  22 #
  23
  24 SYSTEMTESTTOP=.
  25 . $SYSTEMTESTTOP/conf.sh
  26
  27 stopservers=true
  28
  29 case $1 in
  30    --keep) stopservers=false; shift ;;
  31 esac
  32
  33 test $# -gt 0 || { echo "usage: $0 [--keep] test-directory" >&2; exit 1; }
  34
  35 test=$1
  36 shift
  37
  38 test -d $test || { echo "$0: $test: no such test" >&2; exit 1; }
  39
  40 echo "S:$test:`date`" >&2
  41 echo "T:$test:1:A" >&2
  42 echo "A:System test $test" >&2
  43
  44 if [ x$PERL = x ]
  45 then
  46     echo "I:Perl not available.  Skipping test." >&2
  47     echo "R:UNTESTED" >&2
  48     echo "E:$test:`date`" >&2
  49     exit 0;
  50 fi
  51
  52 $PERL testsock.pl || {
  53     echo "I:Network interface aliases not set up.  Skipping test." >&2;
  54     echo "R:UNTESTED" >&2;
  55     echo "E:$test:`date`" >&2;
  56     exit 0;
  57 }
  58
  59
  60 # Check for test-specific prerequisites.
  61 if
  62     test ! -f $test/prereq.sh ||
  63     ( cd $test && sh prereq.sh "$@" )
  64 then
  65     : prereqs ok
  66 else
  67     echo "I:Prerequisites for $test missing, skipping test." >&2
  68     echo "R:UNTESTED" >&2
  69     echo "E:$test:`date`" >&2
  70     exit 0
  71 fi
  72
  73 # Set up any dynamically generated test data
  74 if test -f $test/setup.sh
  75 then
  76    ( cd $test && sh setup.sh "$@" )
  77 fi
  78
  79 # Start name servers running
  80 $PERL start.pl $test || exit 1
  81
  82 # Run the tests
  83 ( cd $test ; sh tests.sh )
  84
  85 status=$?
  86
  87 if $stopservers
  88 then
  89     :
  90 else
  91     exit $status
  92 fi
  93
  94 # Shutdown
  95 $PERL stop.pl $test
  96
  97 status=`expr $status + $?`
  98
  99 if [ $status != 0 ]; then
 100         echo "R:FAIL"
 101         # Don't clean up - we need the evidence.
 102         find . -name core -exec chmod 0644 '{}' \;
 103 else
 104         echo "R:PASS"
 105
 106         # Clean up.
 107         if test -f $test/clean.sh
 108         then
 109            ( cd $test && sh clean.sh "$@" )
 110         fi
 111 fi
 112
 113 echo "E:$test:`date`"
 114
 115 exit $status