regress/shlib

   1 # -*- shell -*-
   2
   3 playback_prepare () {
   4         case="$srcdir/case-$casename"
   5         ocase="output-$casename"
   6
   7         exec 4<"$case.sys"
   8         read <&4 program initfile initflags
   9         read <&4 queryargs
  10
  11         initstring="`cat $srcdir/init-$initfile.text`"
  12         xinitflagsf=$srcdir/$program-xinitflags.text
  13         if test -e $xinitflagsf
  14         then
  15                 initflags="$initflags `cat $xinitflagsf`";
  16         else
  17                 initflags="$initflags /"
  18         fi
  19
  20         playback=./${program}_playback
  21 }
  22
  23 playback_execute_core () {
  24         playback_execute_hook "$@"
  25         set +e
  26         ADNS_TEST_REPORT_FD=3 ADNS_TEST_IN_FD=4 \
  27          3>>"$ocase.report" 4<&4 >"$ocase.out" 2>"$ocase.err" \
  28          $ADNS_TEST_DEBUG $playback "$@"
  29         rc=$?
  30         set -e
  31 }
  32
  33 playback_execute () {
  34         playback_execute_core $initflags"$initstring" $queryargs
  35 }