Annotation of OpenXM_contrib/pari-2.2/src/test/dotest, Revision 1.2
1.1 noro 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-$VersionMajor.$VersionMinor.$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 -z "$BUG"; then exit 0; fi
117:
118: pwd=`pwd`
119: wrln
120: wrln "PROBLEMS WERE NOTED. The following files list them in diff format: "
121: wrln "Directory: $pwd"
122: bugp=; buge=;
123: for suf in $SUF; do
124: B=`eval echo '$'BUG$suf`; BUG="$BUG$B"
125: if test -n "$B"; then
126: flist=`eval echo '$'files$suf`
127: for f in $flist; do
128: wrln " $f"
129: case "$f" in
130: *program*) bugp="$suf$bugp";;
131: *elliptic*) buge="$suf$buge";;
132: esac
133: done
134: fi
135: done
136:
1.2 ! noro 137: case "x$buge" in
! 138: x) file_diff=;;
! 139: xsta|xdyn)
! 140: end=" (gp-$buge only)"
! 141: file_diff=elliptic-$buge.dif;;
! 142: xexe)
! 143: end=" (gp-$buge)"
! 144: file_diff=elliptic.dif;;
! 145: x*) end=""
! 146: file_diff=elliptic-sta.dif;;
1.1 noro 147: esac
1.2 ! noro 148: if test -n "$file_diff"; then
1.1 noro 149: len=`wc -l $file_diff | sed -e 's/ *\([0-9]*\).*/\1/'`
150: pat=`head -4 $file_diff|tail -1|grep "141,154"`
1.2 ! noro 151: if test $len -eq 50 -a -n "$pat"; then
1.1 noro 152: cat << EOT
153: NOTE: the problem noted in 'elliptic' boils down to different FPU and
154: compiler optimizations than on our test machine. It can safely be ignored,
155: the difference being insignificant given the requested precision.
156: EOT
157: fi
1.2 ! noro 158: fi
1.1 noro 159:
1.2 ! noro 160: case "x$bugp" in
! 161: x) file_diff=;;
! 162: xsta|xdyn)
! 163: end=" (gp-$bugp only)"
! 164: file_diff=program-$bugp.dif;;
! 165: xexe)
! 166: end=" (gp-$bugp)"
! 167: file_diff=program.dif;;
! 168: x*) end=""
! 169: file_diff=program-sta.dif;;
1.1 noro 170: esac
1.2 ! noro 171: if test -n "$file_diff"; then
1.1 noro 172: len=`wc -l $file_diff | sed -e 's/ *\([0-9]*\).*/\1/'`
173: pat=`head -4 $file_diff|tail -1|grep "108,118"`
1.2 ! noro 174:
1.1 noro 175: if test $len -eq 29 -a -n "$pat"; then
176: cat << EOT
177: NOTE: the problem noted in 'program' is that install() does not work in your
178: configuration$end, so you will not be able to use this feature. Otherwise you
179: can safely ignore the above warning.
180: EOT
1.2 ! noro 181: fi
1.1 noro 182: fi
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dotest CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari-2.2 / src / test