Fix cleanup of ROC command.
[pspp-builds.git] / tests / command / flip.sh
1 #!/bin/sh
2
3 # This program tests the flip command
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 flip.stat"
62 cat > $TEMPDIR/flip.stat <<EOF
63 * Test FLIP with NEWNAME or, equivalently, with a variable named CASE_LBL.
64 data list notable /N 1 (a) A B C D 2-9.
65 list.
66 begin data.
67 v 1 2 3 4 5
68 w 6 7 8 910
69 x1112131415
70 y1617181920
71 z2122232425
72 end data.
73 flip newnames=n.
74 list.
75 flip.
76 list.
77
78 * Test FLIP without NEWNAME.
79 data list list notable /v1 to v10.
80 format all(f2).
81 begin data.
82 1 2 3 4 5 6 7 8 9 10
83 4 5 6 7 8 9 10 11 12 13
84 end data.
85
86 list.
87
88 flip.
89 list. 
90 EOF
91 if [ $? -ne 0 ] ; then no_result ; fi
92
93
94 activity="run program"
95 $SUPERVISOR $PSPP --testing-mode $TEMPDIR/flip.stat
96 if [ $? -ne 0 ] ; then no_result ; fi
97
98 activity="compare output"
99 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
100 diff  -b  $TEMPDIR/pspp.list - << EOF
101 N  A  B  C  D
102 - -- -- -- --
103 v  1  2  3  4 
104 w  6  7  8  9 
105 x 11 12 13 14 
106 y 16 17 18 19 
107 z 21 22 23 24 
108 CASE_LBL        V        W        X        Y        Z
109 -------- -------- -------- -------- -------- --------
110 A            1.00     6.00    11.00    16.00    21.00 
111 B            2.00     7.00    12.00    17.00    22.00 
112 C            3.00     8.00    13.00    18.00    23.00 
113 D            4.00     9.00    14.00    19.00    24.00 
114 CASE_LBL        A        B        C        D
115 -------- -------- -------- -------- --------
116 V            1.00     2.00     3.00     4.00 
117 W            6.00     7.00     8.00     9.00 
118 X           11.00    12.00    13.00    14.00 
119 Y           16.00    17.00    18.00    19.00 
120 Z           21.00    22.00    23.00    24.00 
121 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10
122 -- -- -- -- -- -- -- -- -- ---
123  1  2  3  4  5  6  7  8  9  10 
124  4  5  6  7  8  9 10 11 12  13 
125 CASE_LBL   VAR000   VAR001
126 -------- -------- --------
127 v1           1.00     4.00 
128 v2           2.00     5.00 
129 v3           3.00     6.00 
130 v4           4.00     7.00 
131 v5           5.00     8.00 
132 v6           6.00     9.00 
133 v7           7.00    10.00 
134 v8           8.00    11.00 
135 v9           9.00    12.00 
136 v10         10.00    13.00 
137 EOF
138 if [ $? -ne 0 ] ; then fail ; fi
139
140
141 pass;