Remove visibility from unused widgets and menus
[pspp-builds.git] / tests / bugs / get.sh
1 #!/bin/sh
2
3 # This program tests for a bug which caused
4 # the second procedure after GET FILE to corrupt its output
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      cd /
26      rm -rf $TEMPDIR
27 }
28
29
30 fail()
31 {
32     echo $activity
33     echo FAILED
34     cleanup;
35     exit 1;
36 }
37
38
39 no_result()
40 {
41     echo $activity
42     echo NO RESULT;
43     cleanup;
44     exit 2;
45 }
46
47 pass()
48 {
49     cleanup;
50     exit 0;
51 }
52
53 mkdir -p $TEMPDIR
54
55 cd $TEMPDIR
56
57 activity="create program"
58 cat > $TESTFILE <<EOF
59 DATA LIST LIST NOTABLE /LOCATION * EDITOR * SHELL * FREQ * .
60 BEGIN DATA.
61     1.00     1.00    1.0     2.00
62     1.00     1.00    2.0    30.00
63     1.00     2.00    1.0     8.00
64     1.00     2.00    2.0    20.00
65     2.00     1.00    1.0     2.00
66     2.00     1.00    2.0    22.00
67     2.00     2.00    1.0     1.00
68     2.00     2.00    2.0     3.00
69 END DATA.
70
71 SAVE /OUTFILE='$TEMPDIR/foo.sav'.
72
73 GET /FILE='$TEMPDIR/foo.sav'.
74
75 * This one's ok
76 LIST.
77
78 * But this one get rubbish
79 LIST.
80
81 EOF
82 if [ $? -ne 0 ] ; then no_result ; fi
83
84
85 activity="run program"
86 $SUPERVISOR $PSPP --testing-mode $TESTFILE
87 if [ $? -ne 0 ] ; then no_result ; fi
88
89
90
91
92 activity="compare output"
93 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
94 diff -b  -w $TEMPDIR/pspp.list - << EOF
95 LOCATION   EDITOR    SHELL     FREQ
96  -------- -------- -------- --------
97      1.00     1.00     1.00     2.00 
98      1.00     1.00     2.00    30.00 
99      1.00     2.00     1.00     8.00 
100      1.00     2.00     2.00    20.00 
101      2.00     1.00     1.00     2.00 
102      2.00     1.00     2.00    22.00 
103      2.00     2.00     1.00     1.00 
104      2.00     2.00     2.00     3.00 
105 LOCATION   EDITOR    SHELL     FREQ
106  -------- -------- -------- --------
107      1.00     1.00     1.00     2.00 
108      1.00     1.00     2.00    30.00 
109      1.00     2.00     1.00     8.00 
110      1.00     2.00     2.00    20.00 
111      2.00     1.00     1.00     2.00 
112      2.00     1.00     2.00    22.00 
113      2.00     2.00     1.00     1.00 
114      2.00     2.00     2.00     3.00 
115 EOF
116 if [ $? -ne 0 ] ; then fail ; fi
117
118 pass;