fix bug 19819
[pspp] / tests / command / beg-data.sh
1 #!/bin/sh
2
3 # This program tests the BEGIN DATA / END DATA 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      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_foobar
59 title 'Test BEGIN DATA ... END DATA'.
60
61 data list /A B 1-2.
62 list.
63 begin data.
64 12
65 34
66 56
67 78
68 90
69 end data.
70
71 data list /A B 1-2.
72 begin data.
73 09
74 87
75 65
76 43
77 21
78 end data.
79 list.
80 EOF_foobar
81 if [ $? -ne 0 ] ; then no_result ; fi
82
83
84 activity="run program"
85 $SUPERVISOR $PSPP -o raw-ascii $TESTFILE
86 if [ $? -ne 0 ] ; then no_result ; fi
87
88 activity="compare data"
89 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
90 diff -b $TEMPDIR/pspp.list - << foobar
91 1.1 DATA LIST.  Reading 1 record from INLINE.
92 +--------+------+-------+------+
93 |Variable|Record|Columns|Format|
94 #========#======#=======#======#
95 |A       |     1|  1-  1|F1.0  |
96 |B       |     1|  2-  2|F1.0  |
97 +--------+------+-------+------+
98 A B
99 - -
100 1 2 
101 3 4 
102 5 6 
103 7 8 
104 9 0 
105 2.1 DATA LIST.  Reading 1 record from INLINE.
106 +--------+------+-------+------+
107 |Variable|Record|Columns|Format|
108 #========#======#=======#======#
109 |A       |     1|  1-  1|F1.0  |
110 |B       |     1|  2-  2|F1.0  |
111 +--------+------+-------+------+
112 A B
113 - -
114 0 9 
115 8 7 
116 6 5 
117 4 3 
118 2 1 
119 foobar
120 if [ $? -ne 0 ] ; then fail ; fi
121
122
123 pass;