ce562c75b2ea239e9360fc6f77d897f6c3254d40
[pspp] / tests / bugs / match-files-scratch.sh
1 #!/bin/sh
2
3 # This program tests for a bug which caused MATCH FILES to crash
4 # when used with scratch variables.
5
6
7 TEMPDIR=/tmp/pspp-tst-$$
8 TESTFILE=$TEMPDIR/`basename $0`.pspp
9
10 here=`pwd`;
11
12 # ensure that top_srcdir is absolute
13 cd $top_srcdir; top_srcdir=`pwd`
14
15 STAT_CONFIG_PATH=$top_srcdir/config
16 export STAT_CONFIG_PATH
17
18
19 cleanup()
20 {
21      cd /
22      rm -rf $TEMPDIR
23 }
24
25
26 fail()
27 {
28     echo $activity
29     echo FAILED
30     cleanup;
31     exit 1;
32 }
33
34
35 no_result()
36 {
37     echo $activity
38     echo NO RESULT;
39     cleanup;
40     exit 2;
41 }
42
43 pass()
44 {
45     cleanup;
46     exit 0;
47 }
48
49 mkdir -p $TEMPDIR
50
51 cd $TEMPDIR
52
53 activity="create program"
54 cat > $TESTFILE <<EOF
55 DATA LIST LIST /w * x * y * .
56 BEGIN DATA
57 4 5 6
58 1 2 3
59 END DATA.
60
61 COMPUTE j=0.
62 LOOP #k = 1 to 10.
63 COMPUTE j=#k + j.
64 END LOOP.
65
66 MATCH FILES FILE=* /DROP=w.
67 LIST.
68 FINISH.
69
70 EOF
71 if [ $? -ne 0 ] ; then no_result ; fi
72
73 $SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE
74 if [ $? -ne 0 ] ; then no_result ; fi
75
76
77 diff -b -B -w $TEMPDIR/pspp.list - << EOF
78 1.1 DATA LIST.  Reading free-form data from the command file.
79 +--------+------+
80 |Variable|Format|
81 #========#======#
82 |w       |F8.0  |
83 |x       |F8.0  |
84 |y       |F8.0  |
85 +--------+------+
86
87        x        y        j
88 -------- -------- --------
89     5.00     6.00    55.00 
90     2.00     3.00    55.00 
91 EOF
92 if [ $? -ne 0 ] ; then fail ; fi
93
94 pass;