pintos-os.org Git - pspp/blob - tests/command/sysfiles.sh

   1 #!/bin/sh
   2
   3 # This program tests that system files can be read and written
   4 # including the long variable names.
   5
   6
   7 TEMPDIR=/tmp/pspp-tst-$$
   8 TESTFILE=$TEMPDIR/`basename $0`.sps
   9
  10 # ensure that top_builddir  are absolute
  11 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
  12 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
  13 top_builddir=`cd $top_builddir; pwd`
  14 PSPP=$top_builddir/src/ui/terminal/pspp
  15
  16 # ensure that top_srcdir is absolute
  17 top_srcdir=`cd $top_srcdir; pwd`
  18
  19 STAT_CONFIG_PATH=$top_srcdir/config
  20 export STAT_CONFIG_PATH
  21
  22
  23 cleanup()
  24 {
  25      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
  26         echo "NOT cleaning $TEMPDIR"
  27         return ;
  28      fi
  29      cd /
  30      rm -rf $TEMPDIR
  31 }
  32
  33
  34 fail()
  35 {
  36     echo $activity
  37     echo FAILED
  38     cleanup;
  39     exit 1;
  40 }
  41
  42
  43 no_result()
  44 {
  45     echo $activity
  46     echo NO RESULT;
  47     cleanup;
  48     exit 2;
  49 }
  50
  51 pass()
  52 {
  53     cleanup;
  54     exit 0;
  55 }
  56
  57 mkdir -p $TEMPDIR
  58
  59 cd $TEMPDIR
  60
  61 activity="create program"
  62 cat > $TESTFILE <<EOF
  63 DATA LIST LIST NOTABLE / variable001 * variable002 * variable003 * variable004 * .
  64 BEGIN DATA.
  65     1.00     1.00    1.0     2.00
  66     1.00     1.00    2.0    30.00
  67     1.00     2.00    1.0     8.00
  68     1.00     2.00    2.0    20.00
  69     2.00     1.00    1.0     2.00
  70     2.00     1.00    2.0    22.00
  71     2.00     2.00    1.0     1.00
  72     2.00     2.00    2.0     3.00
  73 END DATA.
  74
  75 SAVE /OUTFILE='$TEMPDIR/foo.sav'.
  76
  77 GET /FILE='$TEMPDIR/foo.sav'.
  78
  79 LIST.
  80
  81 EOF
  82 if [ $? -ne 0 ] ; then no_result ; fi
  83
  84
  85 activity="run program"
  86 $SUPERVISOR $PSPP --testing-mode $TESTFILE
  87 if [ $? -ne 0 ] ; then no_result ; fi
  88
  89 activity="compare output"
  90 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  91 diff -b  -w $TEMPDIR/pspp.list - << EOF
  92 variable001 variable002 variable003 variable004
  93 ----------- ----------- ----------- -----------
  94        1.00        1.00        1.00        2.00
  95        1.00        1.00        2.00       30.00
  96        1.00        2.00        1.00        8.00
  97        1.00        2.00        2.00       20.00
  98        2.00        1.00        1.00        2.00
  99        2.00        1.00        2.00       22.00
 100        2.00        2.00        1.00        1.00
 101        2.00        2.00        2.00        3.00
 102 EOF
 103 if [ $? -ne 0 ] ; then fail ; fi
 104
 105 pass;