tests/command/split-file.sh

   1 #!/bin/sh
   2
   3 # This program tests the split file 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
  13 # ensure that top_srcdir is absolute
  14 top_srcdir=`cd $top_srcdir; pwd`
  15
  16 STAT_CONFIG_PATH=$top_srcdir/config
  17 export STAT_CONFIG_PATH
  18
  19
  20 cleanup()
  21 {
  22      cd /
  23      rm -rf $TEMPDIR
  24 }
  25
  26
  27 fail()
  28 {
  29     echo $activity
  30     echo FAILED
  31     cleanup;
  32     exit 1;
  33 }
  34
  35
  36 no_result()
  37 {
  38     echo $activity
  39     echo NO RESULT;
  40     cleanup;
  41     exit 2;
  42 }
  43
  44 pass()
  45 {
  46     cleanup;
  47     exit 0;
  48 }
  49
  50 mkdir -p $TEMPDIR
  51
  52 cd $TEMPDIR
  53
  54 activity="create program"
  55 cat > $TEMPDIR/split.stat <<EOF
  56 title 'Test SPLIT FILE utility'.
  57
  58 data list notable /X 1 Y 2.
  59 begin data.
  60 12
  61 16
  62 17
  63 19
  64 15
  65 14
  66 27
  67 20
  68 26
  69 25
  70 28
  71 29
  72 24
  73 end data.
  74 split file by x.
  75 list.
  76 EOF
  77 if [ $? -ne 0 ] ; then no_result ; fi
  78
  79 activity="run program"
  80 $SUPERVISOR $top_builddir/src/pspp -o raw-ascii $TEMPDIR/split.stat
  81 if [ $? -ne 0 ] ; then no_result ; fi
  82
  83 activity="compare results"
  84 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  85 diff  -b $TEMPDIR/pspp.list - <<EOF
  86 Variable Value Label
  87 X            1
  88 X Y
  89 - -
  90 1 2
  91 1 6
  92 1 7
  93 1 9
  94 1 5
  95 1 4
  96 Variable Value Label
  97 X            2
  98 X Y
  99 - -
 100 2 7
 101 2 0
 102 2 6
 103 2 5
 104 2 8
 105 2 9
 106 2 4
 107 EOF
 108 if [ $? -ne 0 ] ; then fail ; fi
 109
 110 pass;