Return to dotest CVS log

Up to [local] / OpenXM_contrib / pari / src / test

Annotation of OpenXM_contrib/pari/src/test/dotest, Revision 1.1

1.1     ! maekawa     1: #!/bin/sh
        !             2:
        !             3: wrln () { echo "$1"; echo "$1" >> $file_bench; }
        !             4:
        !             5: wr () { echo $n "$1$c"; echo $n "$1$c" >> $file_bench; }
        !             6:
        !             7: confdir=../config
        !             8: testdir=../src/test
        !             9: execdir=.
        !            10: #Format: filename_weight (weight = 1000 if omitted)
        !            11: #  individual times are not modified whereas accumulated time is weighed
        !            12: #  by (weight / 1000)
        !            13: test -z "$testlist" && testlist="\
        !            14:   objets\
        !            15:   analyz\
        !            16:   number\
        !            17:   polyser\
        !            18:   linear\
        !            19:   elliptic\
        !            20:   sumiter\
        !            21:   graph\
        !            22:   program\
        !            23:   trans\
        !            24:   nfields_200\
        !            25: "
        !            26: if test -f /bin/rm ; then RM=/bin/rm; else RM=rm ; fi
        !            27: if sh -c 'test -x /bin/sh' 2>&-; then x=-x; else x=-r; fi
        !            28: (echo "hi there\c" ; echo " ") > echotmp
        !            29: if grep c echotmp >/dev/null 2>&1 ; then n=-n; c=; else n=; c='\c'; fi
        !            30: $RM echotmp
        !            31:
        !            32: case "$1" in
        !            33:   8) bitlen=64 ;;
        !            34:   *) bitlen=32 ;;
        !            35: esac
        !            36: case "$2" in
        !            37:   -c) testlist=compat;;
        !            38:   -g) testlist=ploth;;
        !            39:   -a) testlist=all;;
        !            40: esac
        !            41:
        !            42: . $confdir/version
        !            43: file_bench=Bench-$version.$patch
        !            44: if (touch $file_bench 2> /dev/null); then
        !            45:   SUF=
        !            46: else
        !            47:   if test ! $x $execdir/gp.exe; then
        !            48:     echo "build gp.exe first" >&2; exit 1
        !            49:   fi
        !            50:   if (echo | gp -test -q 2> /dev/null); then
        !            51:     gp=gp
        !            52:   else
        !            53:     gp="command /c gp"
        !            54:   fi
        !            55:   if (expr 2 \* 2 2> /dev/null); then exprbug=0; else exprbug=1; fi
        !            56:   SUF="exe"; file_bench=Bench.$patch
        !            57: fi
        !            58: $RM -f $file_bench
        !            59:
        !            60: dotestSUF=${dotestSUF:-"sta dyn"}
        !            61: for arg in $dotestSUF; do
        !            62:   case "$arg" in
        !            63:     sta|dyn) if test $x $execdir/gp-$arg; then SUF="$SUF $arg"; fi ;;
        !            64:   esac
        !            65: done
        !            66: file_test=gp.out
        !            67: for suf in $SUF; do eval time$suf=0 files$suf=; done
        !            68: for testdata in $testlist; do
        !            69:   O=$IFS;IFS=_;set $testdata;IFS=$O;testname=$1;testmul=$2
        !            70:   file_in=$testdir/in/$testname
        !            71:   file_out=$testdir/$bitlen/$testname
        !            72:   if test ! -r $file_in -o ! -r $file_out; then
        !            73:     wrln "Error! Missing file, can't test $testname"
        !            74:   else
        !            75:     testmul=${testmul:-1000}
        !            76:     wr "* Testing $testname $c"
        !            77:     for suf in $SUF; do
        !            78:       wr "     for gp-$suf..$c"
        !            79:       case "$suf" in
        !            80:         exe) file_diff=$testname.dif;;
        !            81:        *)   file_diff=$testname-$suf.dif
        !            82:             gp=$execdir/gp-$suf;;
        !            83:       esac
        !            84:       $gp -q -test < $file_in > $file_test 2>&1
        !            85:       diff -c $file_out $file_test > $file_diff
        !            86:       pat=`grep "^[-+!] " $file_diff | grep -v "Total time"`
        !            87:       time=`tail -2 $file_test | sed -n 's,.*Total time spent: \(.*\),\1,p'`
        !            88:       if test -n "$time"; then
        !            89:         eval t='$'time$suf
        !            90:        if test -n "$exprbug"; then
        !            91:          t=`expr $time \'\*\' $testmul / 1000 + $t`
        !            92:        else
        !            93:          t=`expr $time '*' $testmul / 1000 + $t`
        !            94:        fi
        !            95:         eval time$suf=$t
        !            96:       fi
        !            97:       if test -z "$pat"; then
        !            98:         wr "TIME=$time";
        !            99:       else
        !           100:         eval BUG$suf=BUG
        !           101:         eval files$suf=\"'$'files$suf $file_diff\"
        !           102:         wr "BUG [${time:-0}]"
        !           103:       fi
        !           104:     done
        !           105:     wrln
        !           106:   fi
        !           107: done
        !           108: $RM $file_test
        !           109: BUG=
        !           110: for suf in $SUF; do
        !           111:   B=`eval echo '$'BUG$suf`; BUG="$BUG$B"
        !           112:   t=`eval echo '$'time$suf`
        !           113:   if test -n "$B"; then B=' [BUG]'; fi
        !           114:   wrln "+++$B Total bench for gp-$suf is $t"
        !           115: done
        !           116: if test -n "$BUG"; then
        !           117:   pwd=`pwd`
        !           118:   wrln
        !           119:   wrln "PROBLEMS WERE NOTED. The following files list them in diff format: "
        !           120:   wrln "Directory: $pwd"
        !           121:   lastnote=ok; bug=
        !           122:   for suf in $SUF; do
        !           123:     B=`eval echo '$'BUG$suf`; BUG="$BUG$B"
        !           124:     if test -n "$B"; then
        !           125:       flist=`eval echo '$'files$suf`
        !           126:       for f in $flist; do
        !           127:         case "$f" in
        !           128:           *program*) if test -n "$bug"; then bug=all; else bug=$suf; fi;;
        !           129:           *) lastnote="";;
        !           130:         esac
        !           131:         wrln " $f"
        !           132:       done
        !           133:     fi
        !           134:   done
        !           135:   if test -n "$lastnote"; then
        !           136:     case "$bug" in
        !           137:       all) end=""
        !           138:            file_diff=program-sta.dif;;
        !           139:       sta|dyn)
        !           140:            end=" (gp-$bug only)"
        !           141:            file_diff=program-$bug.dif;;
        !           142:       exe)
        !           143:            end=" (gp-$bug)"
        !           144:           file_diff=program.dif;;
        !           145:     esac
        !           146:     pat=`head -4 $file_diff|tail -1|grep "108,118"`
        !           147:     if test -n "$pat"; then
        !           148: cat << EOT
        !           149: NOTE: actually, the only problem noted is that install() does not work
        !           150: in your configuration$end, so you will not be able to use
        !           151: this feature. Otherwise you can safely ignore the above warning.
        !           152: EOT
        !           153:     fi
        !           154:   fi
        !           155: fi