tests/bugs/get.sh

   1 #!/bin/sh
   2
   3 # This program tests for a bug which caused
   4 # the second procedure after GET FILE to corrupt its output
   5
   6
   7 TEMPDIR=/tmp/pspp-tst-$$
   8 TESTFILE=$TEMPDIR/`basename $0`.sps
   9
  10 here=`pwd`;
  11
  12 # ensure that top_srcdir is absolute
  13 cd $top_srcdir; top_srcdir=`pwd`
  14
  15 STAT_CONFIG_PATH=$top_srcdir/config
  16 export STAT_CONFIG_PATH
  17
  18
  19 cleanup()
  20 {
  21      cd /
  22      rm -rf $TEMPDIR
  23 }
  24
  25
  26 fail()
  27 {
  28     echo $activity
  29     echo FAILED
  30     cleanup;
  31     exit 1;
  32 }
  33
  34
  35 no_result()
  36 {
  37     echo $activity
  38     echo NO RESULT;
  39     cleanup;
  40     exit 2;
  41 }
  42
  43 pass()
  44 {
  45     cleanup;
  46     exit 0;
  47 }
  48
  49 mkdir -p $TEMPDIR
  50
  51 cd $TEMPDIR
  52
  53 activity="create program"
  54 cat > $TESTFILE <<EOF
  55 DATA LIST LIST NOTABLE /LOCATION * EDITOR * SHELL * FREQ * .
  56 BEGIN DATA.
  57     1.00     1.00    1.0     2.00
  58     1.00     1.00    2.0    30.00
  59     1.00     2.00    1.0     8.00
  60     1.00     2.00    2.0    20.00
  61     2.00     1.00    1.0     2.00
  62     2.00     1.00    2.0    22.00
  63     2.00     2.00    1.0     1.00
  64     2.00     2.00    2.0     3.00
  65 END DATA.
  66
  67 SAVE /OUTFILE='$TEMPDIR/foo.sav'.
  68
  69 GET /FILE='$TEMPDIR/foo.sav'.
  70
  71 * This one's ok
  72 LIST.
  73
  74 * But this one get rubbish
  75 LIST.
  76
  77 EOF
  78 if [ $? -ne 0 ] ; then no_result ; fi
  79
  80
  81 activity="run program"
  82 $SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE
  83 if [ $? -ne 0 ] ; then no_result ; fi
  84
  85
  86
  87
  88 activity="compare output"
  89 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  90 diff -b  -w $TEMPDIR/pspp.list - << EOF
  91 LOCATION   EDITOR    SHELL     FREQ
  92  -------- -------- -------- --------
  93      1.00     1.00     1.00     2.00
  94      1.00     1.00     2.00    30.00
  95      1.00     2.00     1.00     8.00
  96      1.00     2.00     2.00    20.00
  97      2.00     1.00     1.00     2.00
  98      2.00     1.00     2.00    22.00
  99      2.00     2.00     1.00     1.00
 100      2.00     2.00     2.00     3.00
 101 LOCATION   EDITOR    SHELL     FREQ
 102  -------- -------- -------- --------
 103      1.00     1.00     1.00     2.00
 104      1.00     1.00     2.00    30.00
 105      1.00     2.00     1.00     8.00
 106      1.00     2.00     2.00    20.00
 107      2.00     1.00     1.00     2.00
 108      2.00     1.00     2.00    22.00
 109      2.00     2.00     1.00     1.00
 110      2.00     2.00     2.00     3.00
 111 EOF
 112 if [ $? -ne 0 ] ; then fail ; fi
 113
 114 pass;