Only taint casereader if case size is unknown.
[pspp] / tests / formats / wkday-in.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="write pspp syntax"
42 cat > wkday-in.pspp <<EOF
43 set errors=none.
44 set mxwarns=10000000.
45 data list /wkday2 1-2 (wkday)
46            wkday3 1-3 (wkday)
47            wkday4 1-4 (wkday)
48            wkday5 1-5 (wkday)
49            wkday6 1-6 (wkday)
50            wkday7 1-7 (wkday)
51            wkday8 1-8 (wkday)
52            wkday9 1-9 (wkday)
53            wkday10 1-10 (wkday).
54 begin data.
55
56 .
57 monady
58 tuseday
59 wedensday
60 thurdsay
61 fridya
62 saturady
63 sudnay
64 end data.
65 formats all (wkday2).
66 print outfile='wkday-in.out'/all.
67 execute.
68 EOF
69 if [ $? -ne 0 ] ; then no_result ; fi
70
71 activity="run program"
72 $SUPERVISOR $PSPP --testing-mode wkday-in.pspp
73 if [ $? -ne 0 ] ; then no_result ; fi
74
75 activity="compare output"
76 diff -u wkday-in.out - <<EOF
77   .  .  .  .  .  .  .  .  . 
78   .  .  .  .  .  .  .  .  . 
79  MO MO MO MO MO MO MO MO MO 
80  TU TU TU TU TU TU TU TU TU 
81  WE WE WE WE WE WE WE WE WE 
82  TH TH TH TH TH TH TH TH TH 
83  FR FR FR FR FR FR FR FR FR 
84  SA SA SA SA SA SA SA SA SA 
85  SU SU SU SU SU SU SU SU SU 
86 EOF
87 if [ $? -ne 0 ] ; then fail ; fi
88
89 pass