dotest

   1 #!/bin/bash
   2
   3 dir=$PWD
   4
   5 while [ ! -f $dir/wiggle ]
   6 do
   7   case $dir in
   8     / )    echo >&2 Cannot find wiggle program : $WIGGLE
   9        exit 1;;
  10     * ) dir=${dir%/*}
  11   esac
  12 done
  13 export WIGGLE=$dir/wiggle
  14
  15 if [ -d tests ]
  16 then cd tests
  17 fi
  18
  19 status=0
  20 ok=0
  21 fail=0
  22
  23 find . -name core | xargs rm -f
  24 list=$(find . -type f \( -name script -o -name diff -o -name ldiff \
  25         -o -name rediff -o -name merge -o -name wmerge -o -name lmerge -o -name replace \)
  26       )
  27 for path in $list
  28 do
  29   dir=${path%/*}
  30   base=${path##*/}
  31   (
  32     cd $dir
  33     > .time
  34     case $base in
  35         script ) ./script ;;
  36         diff ) if [ -f new ]
  37                 then /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -dw orig new | diff -u diff - ; xit=$?
  38                 else /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -dwp1 orig patch | diff -u diff - ; xit=$?
  39                 fi
  40                 ;;
  41         ldiff ) if [ -f new ]
  42                 then /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -dl orig new | diff -u ldiff - ; xit=$?
  43                 else /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -dlp1 orig patch | diff -u ldiff - ; xit=$?
  44                 fi
  45                 ;;
  46         reldiff ) /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -dl patch | diff -u reldiff - ; xit=$?
  47                 ;;
  48         rediff ) /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -dw patch | diff -u rediff - ; xit=$?
  49                 ;;
  50         merge )  if [ -f patch ]
  51                  then /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -m orig patch | diff -u merge - ; xit=$?
  52                  elif [ -f new ]
  53                  then /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -m orig new new2 | diff -u merge - ; xit=$?
  54                  else /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -m orig | diff -u merge - ; xit=$?
  55                  fi
  56                 ;;
  57         replace ) cp orig orig.tmp
  58                  if [ -f patch ]
  59                  then /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -mr orig.tmp patch
  60                  else /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -mr orig.tmp new new2
  61                  fi
  62                  diff -u merge orig.tmp ; xit=$?
  63                  rm  orig.tmp orig.tmp.porig
  64                 ;;
  65         lmerge )  if [ -f patch ]
  66                  then /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -ml orig patch | diff -u lmerge - ; xit=$?
  67                  else /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -ml orig new new2 | diff -u lmerge - ; xit=$?
  68                  fi
  69                  ;;
  70         wmerge )  if [ -f patch ]
  71                  then /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -mw orig patch | diff -u wmerge - ; xit=$?
  72                  else /usr/bin/time --quiet -o .time -f '%U' $WIGGLE -mw orig new new2 | diff -u wmerge - ; xit=$?
  73                  fi
  74                  ;;
  75    esac
  76    if [ $xit = 0 ]; then msg=SUCCEEDED; else msg=FAILED; fi
  77    echo $path $msg `cat .time 2> /dev/null`
  78    rm -f .time
  79    exit $xit
  80   )
  81   if [ $? = 0 ]
  82   then let ok++;
  83   else status=1 ; let fail++
  84   fi
  85 done
  86 find . -name core -ls
  87 echo $ok succeeded and $fail failed
  88 exit $status