tests/bugs/agg-crash-2.sh

   1 #!/bin/sh
   2
   3 # This program tests for a bug which caused AGGREGATE to crash when
   4 # the MAX function was used.
   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 /X (F8.2) Y (a25).
  55
  56 BEGIN DATA.
  57 87.50 foo
  58 87.34 bar
  59 1 bar
  60 END DATA.
  61
  62
  63
  64 AGGREGATE OUTFILE=* /BREAK=y /X=MAX(x).
  65 LIST /x y.
  66 EOF
  67 if [ $? -ne 0 ] ; then no_result ; fi
  68
  69 $SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE
  70 if [ $? -ne 0 ] ; then no_result ; fi
  71
  72 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  73 diff -b  -w $TEMPDIR/pspp.list - << EOF
  74 1.1 DATA LIST.  Reading free-form data from the command file.
  75 +--------+------+
  76 |Variable|Format|
  77 #========#======#
  78 |X       |F8.2  |
  79 |Y       |A25   |
  80 +--------+------+
  81         X                         Y
  82 --------- -------------------------
  83     87.34 bar
  84     87.50 foo
  85 EOF
  86 if [ $? -ne 0 ] ; then fail ; fi
  87
  88 pass;