Free proper variable for var lists in q2c.
[pspp] / tests / command / erase.sh
1 #!/bin/sh
2
3 # This program tests the ERASE 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
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
20 cleanup()
21 {
22      cd /
23      rm -rf $TEMPDIR
24 }
25
26
27 fail()
28 {
29     echo $activity
30     echo FAILED
31     cleanup;
32     exit 1;
33 }
34
35
36 no_result()
37 {
38     echo $activity
39     echo NO RESULT;
40     cleanup;
41     exit 2;
42 }
43
44 pass()
45 {
46     cleanup;
47     exit 0;
48 }
49
50 mkdir -p $TEMPDIR
51
52 cd $TEMPDIR
53
54 activity="create file"
55 cat > $TEMPDIR/foobar <<EOF
56 xyzzy
57 EOF
58 if [ $? -ne 0 ] ; then no_result ; fi
59
60 activity="check for file 1"
61 if [ ! -f $TEMPDIR/foobar ] ; then no_result ; fi 
62
63
64 activity="create program 1"
65 cat > $TESTFILE <<EOF
66 set safer on
67
68 erase FILE='foobar'.
69
70 EOF
71 if [ $? -ne 0 ] ; then no_result ; fi
72
73 # foobar must still exist
74 activity="check for file 2"
75 if [ ! -f $TEMPDIR/foobar ] ; then fail ; fi 
76
77 # This command must fail
78 activity="run prog 1"
79 $SUPERVISOR $top_builddir/src/pspp $TESTFILE > /dev/null
80 if [ $? -eq 0 ] ; then fail ; fi
81
82
83 activity="create program 2"
84 cat > $TESTFILE <<EOF
85
86 erase FILE='foobar'.
87
88 EOF
89 if [ $? -ne 0 ] ; then no_result ; fi
90
91
92 activity="run prog 1"
93 $SUPERVISOR $top_builddir/src/pspp $TESTFILE
94 if [ $? -ne 0 ] ; then fail ; fi
95
96 # foobar should now be gone
97 if [ -f $TEMPDIR/foobar ] ; then fail ; fi 
98
99
100 pass;