Update to most recent Gnulib
[pspp-builds.git] / tests / command / match-files.sh
1 #!/bin/sh
2
3 # This program tests the MATCH FILES procedure
4
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/match-files.pspp
7
8
9 # ensure that top_builddir  are absolute
10 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
11 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
12 top_builddir=`cd $top_builddir; pwd`
13 PSPP=$top_builddir/src/ui/terminal/pspp
14
15 # ensure that top_srcdir is absolute
16 top_srcdir=`cd $top_srcdir; pwd`
17
18
19 STAT_CONFIG_PATH=$top_srcdir/config
20 export STAT_CONFIG_PATH
21
22 cleanup()
23 {
24      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then 
25         echo "NOT cleaning $TEMPDIR" 
26         return ; 
27      fi
28     cd /
29     rm -rf $TEMPDIR
30 }
31
32
33 fail()
34 {
35     echo $activity
36     echo FAILED
37     cleanup;
38     exit 1;
39 }
40
41
42 no_result()
43 {
44     echo $activity
45     echo NO RESULT;
46     cleanup;
47     exit 2;
48 }
49
50 pass()
51 {
52     cleanup;
53     exit 0;
54 }
55
56 mkdir -p $TEMPDIR
57
58 cd $TEMPDIR
59
60 activity="data create"
61 cat > a.data <<EOF
62 1aB
63 8aM
64 3aE
65 5aG
66 0aA
67 5aH
68 6aI
69 7aJ
70 2aD
71 7aK
72 1aC
73 7aL
74 4aF
75 EOF
76 if [ $? -ne 0 ] ; then no_result ; fi
77 cat > b.data <<EOF
78 1bN
79 3bO
80 4bP
81 6bQ
82 7bR
83 9bS
84 EOF
85 if [ $? -ne 0 ] ; then no_result ; fi
86
87 cat > ff.out <<EOF
88 A B C D INA INB FIRST LAST
89 - - - - --- --- ----- ----
90 0 a A     1   0     1    1
91 1 a B N   1   1     1    0
92 1 a C     1   0     0    1
93 2 a D     1   0     1    1
94 3 a E O   1   1     1    1
95 4 a F P   1   1     1    1
96 5 a G     1   0     1    0
97 5 a H     1   0     0    1
98 6 a I Q   1   1     1    1
99 7 a J R   1   1     1    0
100 7 a K     1   0     0    0
101 7 a L     1   0     0    1
102 8 a M     1   0     1    1
103 9 b   S   0   1     1    1
104 EOF
105
106 cat > ft.out <<EOF
107 A B C D INA INB FIRST LAST
108 - - - - --- --- ----- ----
109 0 a A     1   0     1    1
110 1 a B N   1   1     1    0
111 1 a C N   1   1     0    1
112 2 a D     1   0     1    1
113 3 a E O   1   1     1    1
114 4 a F P   1   1     1    1
115 5 a G     1   0     1    0
116 5 a H     1   0     0    1
117 6 a I Q   1   1     1    1
118 7 a J R   1   1     1    0
119 7 a K R   1   1     0    0
120 7 a L R   1   1     0    1
121 8 a M     1   0     1    1
122 EOF
123
124 # Test nonparallel match and table lookup.
125 dla="data list notable file='a.data' /A B C 1-3 (a)."
126 sa="save outfile='a.sys'."
127 dlb="data list notable file='b.data' /A B C 1-3 (a)."
128 sb="save outfile='b.sys'."
129 for types in ff ft; do
130     type1=file
131     if [ $types = ff ]; then 
132         type2=file
133     else
134         type2=table
135     fi
136     for sources in ss sa as; do
137         name="$types-$sources"
138         activity="create $name.pspp"
139         {
140             if [ $sources = ss ]; then
141                 cat <<EOF
142 $dla
143 $sa
144 $dlb
145 $sb
146 match files $type1='a.sys' /in=INA /sort
147            /$type2='b.sys' /in=INB /rename c=D
148            /by a /first=FIRST /last=LAST.
149 EOF
150             elif [ $sources = sa ]; then
151                 cat <<EOF
152 $dla
153 $sa
154 $dlb
155 match files $type1='a.sys' /in=INA /sort
156            /$type2=* /in=INB /rename c=D
157            /by a /first=FIRST /last=LAST.
158 EOF
159             elif [ $sources = as ]; then
160                 cat <<EOF
161 $dlb
162 $sb
163 $dla
164 match files $type1=* /in=INA /sort
165            /$type2='b.sys' /in=INB /rename c=D
166            /by a /first=FIRST /last=LAST.
167 EOF
168             else
169                 activity="internal error"
170                 no_result
171             fi
172             echo 'list.'
173         } > $name.pspp
174         if [ $? -ne 0 ] ; then no_result ; fi
175
176         activity="run $name.pspp"
177         $SUPERVISOR $PSPP --testing-mode -e /dev/null $name.pspp 
178         if [ $? -ne 0 ] ; then no_result ; fi
179
180         activity="check $name output"
181         perl -pi -e 's/^\s*$//g' pspp.list
182         perl -pi -e 's/^\s*$//g' $types.out
183         diff -b -w pspp.list $types.out
184         if [ $? -ne 0 ] ; then fail ; fi
185     done
186 done
187
188 # Test parallel match.  
189 name="parallel"
190 activity="create $name.pspp"
191 cat > $name.pspp <<EOF
192 $dla
193 $sa
194 $dlb
195 $sb
196 match files file='a.sys' /file='b.sys' /rename (a b c=D E F).
197 list.
198 EOF
199 if [ $? -ne 0 ] ; then no_result ; fi
200
201 activity="run $name.pspp"
202 $SUPERVISOR $PSPP --testing-mode -e /dev/null $name.pspp 
203 if [ $? -ne 0 ] ; then no_result ; fi
204
205 activity="check $name output"
206 perl -pi -e 's/^\s*$//g' pspp.list
207 diff -b -w - pspp.list <<EOF
208 A B C D E F
209 - - - - - -
210 1 a B 1 b N
211 8 a M 3 b O
212 3 a E 4 b P
213 5 a G 6 b Q
214 0 a A 7 b R
215 5 a H 9 b S
216 6 a I
217 7 a J
218 2 a D
219 7 a K
220 1 a C
221 7 a L
222 4 a F
223 EOF
224 if [ $? -ne 0 ] ; then fail ; fi
225
226 # Test bug handling TABLE from active file found by John Darrington.
227 name="active-table"
228 activity="create $name.pspp"
229 cat > $name.pspp <<EOF
230 DATA LIST LIST NOTABLE /x * y *.
231 BEGIN DATA
232 3 30
233 2 21
234 1 22
235 END DATA.
236
237 SAVE OUTFILE='bar.sav'.
238
239 DATA LIST LIST NOTABLE /x * z *.
240 BEGIN DATA
241 3 8
242 2 9
243 END DATA.
244
245 MATCH FILES TABLE=* /FILE='bar.sav' /BY=x.
246 LIST.
247 EOF
248 if [ $? -ne 0 ] ; then no_result ; fi
249
250 activity="run $name.pspp"
251 $SUPERVISOR $PSPP --testing-mode -e /dev/null $name.pspp 
252 if [ $? -ne 0 ] ; then no_result ; fi
253
254 activity="check $name output"
255 perl -pi -e 's/^\s*$//g' pspp.list
256 diff -b -w - pspp.list <<EOF | perl -e 's/^\s*$//g'
257         x        z        y
258  -------- -------- --------
259      3.00     8.00    30.00 
260      2.00      .      21.00 
261      1.00      .      22.00 
262 EOF
263 if [ $? -ne 0 ] ; then fail ; fi
264
265
266 pass;