Only taint casereader if case size is unknown.
[pspp] / tests / formats / num-out.sh
1 #! /bin/sh
2
3 TEMPDIR=/tmp/pspp-tst-$$
4 mkdir -p $TEMPDIR
5 trap 'cd /; rm -rf $TEMPDIR' 0
6
7 # ensure that top_builddir  are absolute
8 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
9 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
10 top_builddir=`cd $top_builddir; pwd`
11 PSPP=$top_builddir/src/ui/terminal/pspp
12
13 # ensure that top_srcdir is absolute
14 top_srcdir=`cd $top_srcdir; pwd`
15
16 STAT_CONFIG_PATH=$top_srcdir/config
17 export STAT_CONFIG_PATH
18
19 fail()
20 {
21     echo $activity
22     echo FAILED
23     exit 1;
24 }
25
26
27 no_result()
28 {
29     echo $activity
30     echo NO RESULT;
31     exit 2;
32 }
33
34 pass()
35 {
36     exit 0;
37 }
38
39 cd $TEMPDIR
40
41 activity="generate pspp syntax"
42 $PERL $top_srcdir/tests/formats/num-out.pl > num-out.pspp
43 if [ $? -ne 0 ] ; then no_result ; fi
44 echo -n .
45
46 activity="run program"
47 $SUPERVISOR $PSPP --testing-mode num-out.pspp
48 if [ $? -ne 0 ] ; then no_result ; fi
49 echo -n .
50
51 activity="inexactify results"
52 $top_builddir/tests/formats/inexactify < output.txt > output.inexact
53 if [ $? -ne 0 ] ; then no_result ; fi
54 echo -n .
55
56 activity="gunzip expected results"
57 gzip -cd < $top_srcdir/tests/formats/num-out.expected.cmp.gz > expected.txt.cmp
58 if [ $? -ne 0 ] ; then no_result ; fi
59 echo -n .
60
61 activity="decompress expected results"
62 $PERL $top_srcdir/tests/formats/num-out-decmp.pl < expected.txt.cmp > expected.txt
63 if [ $? -ne 0 ] ; then no_result ; fi
64 echo -n .
65
66 activity="inexactify expected results"
67 $top_builddir/tests/formats/inexactify < expected.txt > expected.inexact
68 if [ $? -ne 0 ] ; then no_result ; fi
69 echo -n .
70
71 activity="compare output"
72 $PERL $top_srcdir/tests/formats/num-out-compare.pl \
73         $PSPP_NUM_OUT_COMPARE_FLAGS expected.inexact output.inexact
74 if [ $? -ne 0 ] ; then fail ; fi
75
76 echo .
77
78 pass