Fixed blank replacement
[pspp-builds.git] / tests / bugs / temporary.sh
1 #!/bin/sh
2
3 # This program tests for a bug which caused UNIFORM(x) to always return zero.
4
5
6 TEMPDIR=/tmp/pspp-tst-$$
7 TESTFILE=$TEMPDIR/`basename $0`.sps
8
9 here=`pwd`;
10
11 # ensure that top_srcdir is absolute
12 cd $top_srcdir; top_srcdir=`pwd`
13
14 STAT_CONFIG_PATH=$top_srcdir/config
15 export STAT_CONFIG_PATH
16
17
18 cleanup()
19 {
20      cd /
21      rm -rf $TEMPDIR
22 }
23
24
25 fail()
26 {
27     echo $activity
28     echo FAILED
29     cleanup;
30     exit 1;
31 }
32
33
34 no_result()
35 {
36     echo $activity
37     echo NO RESULT;
38     cleanup;
39     exit 2;
40 }
41
42 pass()
43 {
44     cleanup;
45     exit 0;
46 }
47
48 mkdir -p $TEMPDIR
49
50 cd $TEMPDIR
51
52 activity="create program"
53 cat > $TESTFILE <<EOF
54 DATA LIST LIST NOTABLE /X *.
55 begin data.
56 1
57 2
58 3
59 4
60 5
61 6
62 7
63 8
64 9
65 end data.
66
67 temporary.
68 select if x > 5 .
69 list.
70
71 list.
72 EOF
73 if [ $? -ne 0 ] ; then no_result ; fi
74
75 $SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE
76 if [ $? -ne 0 ] ; then no_result ; fi
77
78
79 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
80 diff -b  -w $TEMPDIR/pspp.list - << EOF
81        X
82 --------
83     6.00 
84     7.00 
85     8.00 
86     9.00 
87        X
88 --------
89     1.00 
90     2.00 
91     3.00 
92     4.00 
93     5.00 
94     6.00 
95     7.00 
96     8.00 
97     9.00 
98 EOF
99 if [ $? -ne 0 ] ; then fail ; fi
100
101 pass;