Checkin of new directory structure.
[pspp-builds.git] / tests / command / use.sh
1 #!/bin/sh
2
3 # This program tests USE, just to make sure that USE ALL is accepted silently.
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
13 # ensure that top_srcdir is absolute
14 top_srcdir=`cd $top_srcdir; pwd`
15
16 STAT_CONFIG_PATH=$top_srcdir/config
17 export STAT_CONFIG_PATH
18
19
20 cleanup()
21 {
22      cd /
23      rm -rf $TEMPDIR
24 }
25
26
27 fail()
28 {
29     echo $activity
30     echo FAILED
31     cleanup;
32     exit 1;
33 }
34
35
36 no_result()
37 {
38     echo $activity
39     echo NO RESULT;
40     cleanup;
41     exit 2;
42 }
43
44 pass()
45 {
46     cleanup;
47     exit 0;
48 }
49
50 mkdir -p $TEMPDIR
51
52 cd $TEMPDIR
53
54 activity="create program"
55 cat > $TEMPDIR/filter.stat << EOF
56 data list notable /X 1-2.
57 begin data.
58 1
59 2
60 3
61 4
62 5
63 6
64 7
65 8
66 9
67 10
68 end data.
69 use all.
70 list.
71
72 EOF
73 if [ $? -ne 0 ] ; then no_result ; fi
74
75
76 activity="run program"
77 $SUPERVISOR $top_builddir/src/pspp --testing-mode -o raw-ascii $TEMPDIR/filter.stat
78 if [ $? -ne 0 ] ; then no_result ; fi
79
80
81 activity="check results"
82 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
83 diff  -b $TEMPDIR/pspp.list - << EOF
84  X
85 --
86  1
87  2
88  3
89  4
90  5
91  6
92  7
93  8
94  9
95 10
96 EOF
97 if [ $? -ne 0 ] ; then fail ; fi
98
99 pass;