Fix missing @clicksequence problem with older Texinfo versions.
[pspp-builds.git] / tests / command / sysfiles-old.sh
1 #!/bin/sh
2
3 # This program tests that system files can be read and written 
4 # without the long name tables.
5
6
7 TEMPDIR=/tmp/pspp-tst-$$
8 TESTFILE=$TEMPDIR/`basename $0`.sps
9
10 # ensure that top_builddir  are absolute
11 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
12 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
13 top_builddir=`cd $top_builddir; pwd`
14 PSPP=$top_builddir/src/ui/terminal/pspp
15
16 # ensure that top_srcdir is absolute
17 top_srcdir=`cd $top_srcdir; pwd`
18
19 STAT_CONFIG_PATH=$top_srcdir/config
20 export STAT_CONFIG_PATH
21
22
23 cleanup()
24 {
25      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then 
26         echo "NOT cleaning $TEMPDIR" 
27         return ; 
28      fi
29      cd /
30      rm -rf $TEMPDIR
31 }
32
33
34 fail()
35 {
36     echo $activity
37     echo FAILED
38     cleanup;
39     exit 1;
40 }
41
42
43 no_result()
44 {
45     echo $activity
46     echo NO RESULT;
47     cleanup;
48     exit 2;
49 }
50
51 pass()
52 {
53     cleanup;
54     exit 0;
55 }
56
57 mkdir -p $TEMPDIR
58
59 cd $TEMPDIR
60
61 activity="create program"
62 cat > $TESTFILE <<EOF
63 DATA LIST LIST NOTABLE / X * variable001 * variable002 * variable003 * .
64 BEGIN DATA.
65     1.00     1.00    1.0     2.00
66     1.00     1.00    2.0    30.00
67     1.00     2.00    1.0     8.00
68     1.00     2.00    2.0    20.00
69     2.00     1.00    1.0     2.00
70     2.00     1.00    2.0    22.00
71     2.00     2.00    1.0     1.00
72     2.00     2.00    2.0     3.00
73 END DATA.
74
75 SAVE /OUTFILE='$TEMPDIR/foo.sav'
76      /VERSION=2
77      .
78
79 GET /FILE='$TEMPDIR/foo.sav'.
80
81 LIST.
82
83 EOF
84 if [ $? -ne 0 ] ; then no_result ; fi
85
86 activity="run program"
87 $SUPERVISOR $PSPP --testing-mode $TESTFILE
88 if [ $? -ne 0 ] ; then no_result ; fi
89
90 activity="check file exists"
91 ls -l $TEMPDIR/foo.sav > /dev/null
92 if [ $? -ne 0 ] ; then no_result ; fi
93
94 # Ensure that the written file has no long name table
95 activity="check sysfile type"
96 grep  'X=X' $TEMPDIR/foo.sav
97 if [ $? -eq 0 ] ; then fail ; fi
98
99 activity="compare output"
100 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
101 diff -b  -w $TEMPDIR/pspp.list - << EOF
102        x variable variab_a variab_b
103 -------- -------- -------- --------
104     1.00     1.00     1.00     2.00 
105     1.00     1.00     2.00    30.00 
106     1.00     2.00     1.00     8.00 
107     1.00     2.00     2.00    20.00 
108     2.00     1.00     1.00     2.00 
109     2.00     1.00     2.00    22.00 
110     2.00     2.00     1.00     1.00 
111     2.00     2.00     2.00     3.00 
112 EOF
113 if [ $? -ne 0 ] ; then fail ; fi
114
115 pass;