37d3fb806c34d8b8e710f98abf5b7b014282e784
[pspp-builds.git] / tests / command / file-label.sh
1 #!/bin/sh
2
3 # This program tests the FILE LABEL and  DOCUMENT commands
4
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
7
8 here=`pwd`;
9
10 # ensure that top_srcdir is absolute
11 cd $top_srcdir; top_srcdir=`pwd`
12
13 STAT_CONFIG_PATH=$top_srcdir/config
14 export STAT_CONFIG_PATH
15
16
17 cleanup()
18 {
19      cd /
20      rm -rf $TEMPDIR
21 }
22
23
24 fail()
25 {
26     echo $activity
27     echo FAILED
28     cleanup;
29     exit 1;
30 }
31
32
33 no_result()
34 {
35     echo $activity
36     echo NO RESULT;
37     cleanup;
38     exit 2;
39 }
40
41 pass()
42 {
43     cleanup;
44     exit 0;
45 }
46
47 mkdir -p $TEMPDIR
48
49 cd $TEMPDIR
50
51 activity="create program"
52 cat > $TESTFILE << EOF
53
54 /* Set up a dummy active file in memory.
55 data list /X 1 Y 2.
56 begin data.
57 16
58 27
59 38
60 49
61 50
62 end data.
63
64 /* Add value labels for some further testing of value labels.
65 value labels x y 1 'first label' 2 'second label' 3 'third label'.
66 add value labels x 1 'first label mark two'.
67
68 /* Add a file label and a few documents.
69 file label This is a test file label.
70 document First line of a document
71 This is the second very long line of a document in an attempt to overflow the input buffer with a really long line
72 Note that the last line should end with a period: .
73
74 /* Display the documents.
75 display documents.
76 display file label.     /* undocumented feature of PSPP
77
78 /* Save the active file then get it and display the documents again.
79 save /OUTFILE='foo.save'.
80 get /FILE='foo.save'.
81 display documents.
82 display file label.     /* undocumented feature of PSPP
83
84 /* There is an interesting interaction that occurs if the 'execute'
85 /* command below.  What happens is that an error message is output
86 /* at the next 'save' command that 'foo.save' is already open for
87 /* input.  This is because the 'get' hasn't been executed yet and
88 /* therefore PSPP would be reading from and writing to the same
89 /* file at once, which is obviously a Bad Thing.  But 'execute'
90 /* here clears up that potential problem.
91 execute.
92
93 /* Add another (shorter) document and try again.
94 document There should be another document now.
95 display documents.
96
97 /* Save and get.
98 save /OUTFILE='foo.save'.
99 get /FILE='foo.save'.
100 display documents.
101 display file label.     /* undocumented feature of PSPP
102
103 /* Done.
104
105 EOF
106 if [ $? -ne 0 ] ; then no_result ; fi
107
108 activity="run program"
109 $SUPERVISOR $here/../src/pspp --testing-mode -o raw-ascii $TESTFILE
110 if [ $? -ne 0 ] ; then no_result ; fi
111
112 # We need to filter out the dates/times
113 activity="date filter"
114 grep -v 'Document entered' $TEMPDIR/pspp.list > $TEMPDIR/pspp.filtered
115 if [ $? -ne 0 ] ; then no_result ; fi
116
117
118 activity="compare results"
119 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.filtered
120 diff -b  $TEMPDIR/pspp.filtered - <<EOF
121 1.1 DATA LIST.  Reading 1 record from INLINE.
122 +--------+------+-------+------+
123 |Variable|Record|Columns|Format|
124 #========#======#=======#======#
125 |X       |     1|  1-  1|F1.0  |
126 |Y       |     1|  2-  2|F1.0  |
127 +--------+------+-------+------+
128 Documents in the active file:
129    First line of a document
130    This is the second very long line of a document in an attempt to overflow the
131    Note that the last line should end with a period: .
132 File label:
133 This is a test file label
134 Documents in the active file:
135    First line of a document
136    This is the second very long line of a document in an attempt to overflow the
137    Note that the last line should end with a period: .
138 File label:
139 This is a test file label
140 Documents in the active file:
141    First line of a document
142    This is the second very long line of a document in an attempt to overflow the
143    Note that the last line should end with a period: .
144    There should be another document now.
145 Documents in the active file:
146    First line of a document
147    This is the second very long line of a document in an attempt to overflow the
148    Note that the last line should end with a period: .
149    There should be another document now.
150 File label:
151 This is a test file label
152 EOF
153 if [ $? -ne 0 ] ; then fail ; fi
154
155
156 pass;