e6211b4d4b8090189628ddd8c11e6fcc4de98122
[pspp-builds.git] / tests / command / file-label.sh
1 #!/bin/sh
2
3 # This program tests the FILE LABEL and  DOCUMENT, and ADD DOCUMENT commands
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 PSPP=$top_builddir/src/ui/terminal/pspp
13
14 # ensure that top_srcdir is absolute
15 top_srcdir=`cd $top_srcdir; pwd`
16
17 STAT_CONFIG_PATH=$top_srcdir/config
18 export STAT_CONFIG_PATH
19
20 LANG=C
21 export LANG
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
64 /* Set up a dummy active file in memory.
65 data list /X 1 Y 2.
66 begin data.
67 16
68 27
69 38
70 49
71 50
72 end data.
73
74 /* Add value labels for some further testing of value labels.
75 value labels x y 1 'first label' 2 'second label' 3 'third label'.
76 add value labels x 1 'first label mark two'.
77
78 /* Add a file label and a few documents.
79 file label This is a test file label.
80 document First line of a document
81 Second line of a document
82 The last line should end with a period: .
83
84
85 /* Display the documents.
86 display documents.
87 display file label.
88
89 ADD DOCUMENT 'Line one' 'Line two'.
90
91 /* Save the active file then get it and display the documents again.
92 save /OUTFILE='foo.save'.
93 get /FILE='foo.save'.
94 display documents.
95 display file label.
96
97 /* There is an interesting interaction that occurs if the 'execute'
98 /* command below.  What happens is that an error message is output
99 /* at the next 'save' command that 'foo.save' is already open for
100 /* input.  This is because the 'get' hasn't been executed yet and
101 /* therefore PSPP would be reading from and writing to the same
102 /* file at once, which is obviously a Bad Thing.  But 'execute'
103 /* here clears up that potential problem.
104 execute.
105
106 /* Add another (shorter) document and try again.
107 document There should be another document now.
108 display documents.
109
110 /* Save and get.
111 save /OUTFILE='foo.save'.
112 get /FILE='foo.save'.
113 display documents.
114 display file label.
115
116 /* Done.
117
118 EOF
119 if [ $? -ne 0 ] ; then no_result ; fi
120
121 activity="run program"
122 $SUPERVISOR $PSPP --testing-mode $TESTFILE
123 if [ $? -ne 0 ] ; then no_result ; fi
124
125 # We need to filter out the dates/times
126 activity="date filter"
127 grep -v '[Ee]ntered' $TEMPDIR/pspp.list > $TEMPDIR/pspp.filtered
128 if [ $? -ne 0 ] ; then no_result ; fi
129
130
131 activity="compare results"
132 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.filtered
133 diff -b  $TEMPDIR/pspp.filtered - <<EOF
134 1.1 DATA LIST.  Reading 1 record from INLINE.
135 +--------+------+-------+------+
136 |Variable|Record|Columns|Format|
137 #========#======#=======#======#
138 |X       |     1|  1-  1|F1.0  |
139 |Y       |     1|  2-  2|F1.0  |
140 +--------+------+-------+------+
141 Documents in the active file:
142 document First line of a document
143 Second line of a document
144 The last line should end with a period: .
145 File label:
146 This is a test file label
147 Documents in the active file:
148 document First line of a document
149 Second line of a document
150 The last line should end with a period: .
151 Line one
152 Line two
153 File label:
154 This is a test file label
155 Documents in the active file:
156 document First line of a document
157 Second line of a document
158 The last line should end with a period: .
159 Line one
160 Line two
161 document There should be another document now.
162 Documents in the active file:
163 document First line of a document
164 Second line of a document
165 The last line should end with a period: .
166 Line one
167 Line two
168 document There should be another document now.
169 File label:
170 This is a test file label
171 EOF
172 if [ $? -ne 0 ] ; then fail ; fi
173
174
175 pass;