Only taint casereader if case size is unknown.
[pspp] / tests / command / do-repeat.sh
1 #!/bin/sh
2
3 # This program tests the DO REPEAT command.
4
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
7
8 # ensure that top_builddir  are absolute
9 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
10 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
11 top_builddir=`cd $top_builddir; pwd`
12 PSPP=$top_builddir/src/ui/terminal/pspp
13
14 # ensure that top_srcdir is absolute
15 top_srcdir=`cd $top_srcdir; pwd`
16
17 STAT_CONFIG_PATH=$top_srcdir/config
18 export STAT_CONFIG_PATH
19
20
21 cleanup()
22 {
23      cd /
24      rm -rf $TEMPDIR
25 }
26
27
28 fail()
29 {
30     echo $activity
31     echo FAILED
32     cleanup;
33     exit 1;
34 }
35
36
37 no_result()
38 {
39     echo $activity
40     echo NO RESULT;
41     cleanup;
42     exit 2;
43 }
44
45 pass()
46 {
47     cleanup;
48     exit 0;
49 }
50
51 mkdir -p $TEMPDIR
52
53 cd $TEMPDIR
54
55
56 activity="create program"
57 cat > $TESTFILE << EOF
58 DATA LIST NOTABLE /a 1.
59 BEGIN DATA.
60 0
61 END DATA.
62
63 DO REPEAT h = h0 TO h3 / x = 0 TO 3 / y = 8, 7.5, 6, 5.
64         COMPUTE h = x + y.
65 END REPEAT.
66
67 VECTOR v(6).
68 COMPUTE #idx = 0.
69 DO REPEAT i = 1 TO 2.
70         DO REPEAT j = 3 TO 5.
71                 COMPUTE #x = i + j.
72                 COMPUTE #idx = #idx + 1.
73                 COMPUTE v(#idx) = #x.
74         END REPEAT.
75 END REPEAT.
76
77 LIST.
78
79 EOF
80 if [ $? -ne 0 ] ; then no_result ; fi
81
82 activity="run program"
83 $SUPERVISOR $PSPP --testing-mode -o raw-ascii $TESTFILE 
84 if [ $? -ne 0 ] ; then no_result ; fi
85
86 activity="compare results"
87 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
88 diff -b  $TEMPDIR/pspp.list - <<EOF
89 a       h0       h1       h2       h3       v1       v2       v3       v4       v5       v6
90 - -------- -------- -------- -------- -------- -------- -------- -------- -------- --------
91 0     8.00     8.50     8.00     8.00     4.00     5.00     6.00     5.00     6.00     7.00 
92 EOF
93 if [ $? -ne 0 ] ; then fail ; fi
94
95
96 pass