tests/command/file-handle.sh

   1 #!/bin/sh
   2
   3 # This program's primary purpose is to  test the FILE HANDLE command
   4
   5 TEMPDIR=/tmp/pspp-tst-$$
   6 TESTFILE=$TEMPDIR/`basename $0`.sps
   7
   8 # ensure that top_builddir  are absolute
   9 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
  10 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
  11 top_builddir=`cd $top_builddir; pwd`
  12 PSPP=$top_builddir/src/ui/terminal/pspp
  13
  14 # ensure that top_srcdir is absolute
  15 top_srcdir=`cd $top_srcdir; pwd`
  16
  17 STAT_CONFIG_PATH=$top_srcdir/config
  18 export STAT_CONFIG_PATH
  19
  20
  21 cleanup()
  22 {
  23      cd /
  24      rm -rf $TEMPDIR
  25 }
  26
  27
  28 fail()
  29 {
  30     echo $activity
  31     echo FAILED
  32     cleanup;
  33     exit 1;
  34 }
  35
  36
  37 no_result()
  38 {
  39     echo $activity
  40     echo NO RESULT;
  41     cleanup;
  42     exit 2;
  43 }
  44
  45 pass()
  46 {
  47     cleanup;
  48     exit 0;
  49 }
  50
  51 mkdir -p $TEMPDIR
  52
  53 cd $TEMPDIR
  54
  55 activity="create file"
  56 cat > $TEMPDIR/wiggle.txt << EOF
  57 1
  58 2
  59 5
  60 109
  61 EOF
  62 if [ $? -ne 0 ] ; then no_result ; fi
  63
  64
  65
  66 activity="create program"
  67 cat > $TESTFILE << EOF
  68 FILE HANDLE myhandle /NAME='$TEMPDIR/wiggle.txt'.
  69 DATA LIST LIST FILE=myhandle /x *.
  70 LIST.
  71 EOF
  72 if [ $? -ne 0 ] ; then no_result ; fi
  73
  74 activity="run program"
  75 $SUPERVISOR $PSPP --testing-mode $TESTFILE
  76 if [ $? -ne 0 ] ; then no_result ; fi
  77
  78
  79 activity="compare output"
  80 diff  -b  $TEMPDIR/pspp.list - << EOF
  81 1.1 DATA LIST.  Reading free-form data from myhandle.
  82 +--------+------+
  83 |Variable|Format|
  84 #========#======#
  85 |x       |F8.0  |
  86 +--------+------+
  87
  88        x
  89 --------
  90     1.00
  91     2.00
  92     5.00
  93   109.00
  94
  95 EOF
  96 if [ $? -ne 0 ] ; then fail ; fi
  97
  98
  99 pass;