8b7f7fd18c20643803b13290dca626980d0a0c29
[pspp] / tests / bugs / compute-lv.sh
1 #!/bin/sh
2
3 # This program tests for a bug involving COMPUTE and long variable names
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
21 cleanup()
22 {
23      cd /
24      rm -rf $TEMPDIR
25 }
26
27
28 fail()
29 {
30     echo $activity
31     echo FAILED
32     cleanup;
33     exit 1;
34 }
35
36
37 no_result()
38 {
39     echo $activity
40     echo NO RESULT;
41     cleanup;
42     exit 2;
43 }
44
45 pass()
46 {
47     cleanup;
48     exit 0;
49 }
50
51 mkdir -p $TEMPDIR
52
53 cd $TEMPDIR
54
55 activity="Create prog"
56 cat > $TESTFILE <<EOF
57 DATA LIST LIST /longVariablename * x *.
58 BEGIN DATA.
59 1 2
60 3 4
61 END DATA.
62
63
64 COMPUTE longvariableName=100-longvariablename.
65
66 LIST.
67
68 EOF
69 if [ $? -ne 0 ] ; then no_result ; fi
70
71
72 activity="run prog"
73 $SUPERVISOR $PSPP --testing-mode $TESTFILE
74 if [ $? -ne 0 ] ; then fail ; fi
75
76
77 activity="compare output"
78 perl -pi -e 's/^\s*$//g' pspp.list
79 diff -b pspp.list - << EOF
80 1.1 DATA LIST.  Reading free-form data from INLINE.
81 +----------------+------+
82 |    Variable    |Format|
83 #================#======#
84 |longVariablename|F8.0  |
85 |x               |F8.0  |
86 +----------------+------+
87 longVariablename        x
88 ---------------- -------- 
89            99.00     2.00
90            97.00     4.00
91 EOF
92 if [ $? -ne 0 ] ; then fail ; fi
93
94
95 pass;