3 # This program tests the autorecode command
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
9 # ensure that top_builddir are absolute
10 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
11 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
12 top_builddir=`cd $top_builddir; pwd`
13 PSPP=$top_builddir/src/ui/terminal/pspp
15 # ensure that top_srcdir is absolute
16 top_srcdir=`cd $top_srcdir; pwd`
18 STAT_CONFIG_PATH=$top_srcdir/config
19 export STAT_CONFIG_PATH
56 activity="create program"
58 /* Tries AUTORECODE on some random but similar strings of characters.
59 data list /X 1-5(a) Y 7.
62 asdfk 0 3 <---- These are the numbers that should be produced for a 4
68 asdfk 0 3 These are the numbers that should be produced for b ----> 4
72 autorecode x y into A B/descend.
75 /* Just to make sure it works on second & subsequent executions,
81 if [ $? -ne 0 ] ; then no_result ; fi
83 activity="run program"
84 $SUPERVISOR $PSPP -o raw-ascii $TESTFILE
85 if [ $? -ne 0 ] ; then no_result ; fi
87 activity="test output"
88 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
89 diff -b $TEMPDIR/pspp.list - <<EOF
90 1.1 DATA LIST. Reading 1 record from INLINE.
91 +--------+------+-------+------+
92 |Variable|Record|Columns|Format|
93 #========#======#=======#======#
96 +--------+------+-------+------+
98 ----- - -------- --------
109 ----- - -------- -------- -------- --------
110 lasdj 1 1.00 3.00 .00 1.00
111 asdfk 0 3.00 4.00 .00 1.00
112 asdfj 2 4.00 2.00 1.00 2.00
113 asdfj 1 4.00 3.00 .00 1.00
114 asdfk 2 3.00 2.00 1.00 2.00
115 asdfj 9 4.00 1.00 4.00 3.00
116 lajks 9 2.00 1.00 4.00 3.00
117 asdfk 0 3.00 4.00 .00 1.00
118 asdfk 1 3.00 3.00 .00 1.00
120 if [ $? -ne 0 ] ; then fail ; fi