#!/bin/sh
# regression_test_short.sh - Don Yang (uguu.org)
# For use with yume.c or yume.pl
#
# 03/20/04


if [ ! -n "$2" ]
then
   echo $0 \<prog1\> \<prog2\>
   exit 1
fi

echo Generating data, seed = $$...
for i in generic longline i c w4 s8 f3
do
   perl test_$i.pl $$ > regress-$$.$i.in
done


echo Running $1...
rm -f regress-$$.prog1.sh
touch regress-$$.prog1.sh
for i in generic longline i c w4 s8 f3
do
   for j in "" "-i" "-c" "-w4" "-s8" "-f3"
   do
      for k in "" "-h1" "-u" "-d" "-k"
      do
         echo $1 $j $k regress-$$.$i.in regress-$$.$i.out1$j$k >> regress-$$.prog1.sh
      done
   done
done
time sh regress-$$.prog1.sh


echo Running $2...
rm -f regress-$$.prog2.sh
touch regress-$$.prog2.sh
for i in generic longline i c w4 s8 f3
do
   for j in "" "-i" "-c" "-w4" "-s8" "-f3"
   do
      for k in "" "-h1" "-u" "-d" "-k"
      do
         echo $2 $j $k regress-$$.$i.in regress-$$.$i.out2$j$k >> regress-$$.prog2.sh
      done
   done
done
time sh regress-$$.prog2.sh


echo Comparing output...
rm -f regress-$$.prog1.sh regress-$$.prog2.sh
for i in generic longline i c w4 s8 f3
do
   for j in "" "-i" "-c" "-w4" "-s8" "-f3"
   do
      for k in "" "-h1" "-u" "-d" "-k"
      do
         diff -q regress-$$.$i.out1$j$k regress-$$.$i.out2$j$k
      done
   done
   rm -f regress-$$.$i.*
done


echo done.