tests/command/do-repeat.sh

   1 #!/bin/sh
   2
   3 # This program tests the DO REPEAT 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      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
  24         echo "NOT cleaning $TEMPDIR"
  25         return ;
  26      fi
  27      cd /
  28      rm -rf $TEMPDIR
  29 }
  30
  31
  32 fail()
  33 {
  34     echo $activity
  35     echo FAILED
  36     cleanup;
  37     exit 1;
  38 }
  39
  40
  41 no_result()
  42 {
  43     echo $activity
  44     echo NO RESULT;
  45     cleanup;
  46     exit 2;
  47 }
  48
  49 pass()
  50 {
  51     cleanup;
  52     exit 0;
  53 }
  54
  55 mkdir -p $TEMPDIR
  56
  57 cd $TEMPDIR
  58
  59
  60 activity="create program"
  61 cat > $TESTFILE << EOF
  62 DATA LIST NOTABLE /a 1.
  63 BEGIN DATA.
  64 0
  65 END DATA.
  66
  67 DO REPEAT h = h0 TO h3 / x = 0 TO 3 / y = 8, 7.5, 6, 5.
  68         COMPUTE h = x + y.
  69 END REPEAT.
  70
  71 VECTOR v(6).
  72 COMPUTE #idx = 0.
  73 DO REPEAT i = 1 TO 2.
  74         DO REPEAT j = 3 TO 5.
  75                 COMPUTE #x = i + j.
  76                 COMPUTE #idx = #idx + 1.
  77                 COMPUTE v(#idx) = #x.
  78         END REPEAT.
  79 END REPEAT.
  80
  81 LIST.
  82
  83 EOF
  84 if [ $? -ne 0 ] ; then no_result ; fi
  85
  86 activity="run program"
  87 $SUPERVISOR $PSPP --testing-mode $TESTFILE
  88 if [ $? -ne 0 ] ; then no_result ; fi
  89
  90 activity="compare results"
  91 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.csv
  92 diff -b  $TEMPDIR/pspp.csv - <<EOF
  93 Table: Data List
  94 a,h0,h1,h2,h3,v1,v2,v3,v4,v5,v6
  95 0,8.00,8.50,8.00,8.00,4.00,5.00,6.00,5.00,6.00,7.00
  96 EOF
  97 if [ $? -ne 0 ] ; then fail ; fi
  98
  99
 100 pass