tests/bugs/alpha-freq.sh

   1 #!/bin/sh
   2
   3 # This program tests for a bug where the FREQUENCIES command would
   4 # crash if given an alphanumeric variable
   5
   6 TEMPDIR=/tmp/pspp-tst-$$
   7 TESTFILE=$TEMPDIR/`basename $0`.sps
   8
   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
  14
  15 # ensure that top_srcdir is absolute
  16 top_srcdir=`cd $top_srcdir; pwd`
  17
  18 STAT_CONFIG_PATH=$top_srcdir/config
  19 export STAT_CONFIG_PATH
  20
  21 LANG=C
  22 export LANG
  23
  24 cleanup()
  25 {
  26      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
  27         echo "NOT cleaning $TEMPDIR"
  28         return ;
  29      fi
  30      cd /
  31      rm -rf $TEMPDIR
  32 }
  33
  34
  35 fail()
  36 {
  37     echo $activity
  38     echo FAILED
  39     cleanup;
  40     exit 1;
  41 }
  42
  43
  44 no_result()
  45 {
  46     echo $activity
  47     echo NO RESULT;
  48     cleanup;
  49     exit 2;
  50 }
  51
  52 pass()
  53 {
  54     cleanup;
  55     exit 0;
  56 }
  57
  58 mkdir -p $TEMPDIR
  59
  60 cd $TEMPDIR
  61
  62 cat > $TEMPDIR/prog.sps <<EOF
  63 DATA LIST FREE/
  64    name  (A8) value * quantity .
  65 BEGIN DATA.
  66 Cables 829 3
  67 END DATA.
  68 EXECUTE.
  69
  70 FREQUENCIES /VAR = name.
  71
  72 EOF
  73 if [ $? -ne 0 ] ; then no_result ; fi
  74
  75
  76 $SUPERVISOR $PSPP --testing-mode $TEMPDIR/prog.sps
  77 if [ $? -ne 0 ] ; then fail ; fi
  78
  79
  80 pass;