tests/formats/wkday-in.sh

   1 #! /bin/sh
   2
   3 TEMPDIR=/tmp/pspp-tst-$$
   4 mkdir -p $TEMPDIR
   5 trap 'cd /; rm -rf $TEMPDIR' 0
   6
   7 # ensure that top_builddir  are absolute
   8 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
   9 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
  10 top_builddir=`cd $top_builddir; pwd`
  11 PSPP=$top_builddir/src/ui/terminal/pspp$EXEEXT
  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 fail()
  20 {
  21     echo $activity
  22     echo FAILED
  23     exit 1;
  24 }
  25
  26
  27 no_result()
  28 {
  29     echo $activity
  30     echo NO RESULT;
  31     exit 2;
  32 }
  33
  34 pass()
  35 {
  36     exit 0;
  37 }
  38
  39 cd $TEMPDIR
  40
  41 activity="write pspp syntax"
  42 cat > wkday-in.pspp <<EOF
  43 set errors=none.
  44 set mxwarns=10000000.
  45 data list /wkday2 1-2 (wkday)
  46            wkday3 1-3 (wkday)
  47            wkday4 1-4 (wkday)
  48            wkday5 1-5 (wkday)
  49            wkday6 1-6 (wkday)
  50            wkday7 1-7 (wkday)
  51            wkday8 1-8 (wkday)
  52            wkday9 1-9 (wkday)
  53            wkday10 1-10 (wkday).
  54 begin data.
  55
  56 .
  57 monady
  58 tuseday
  59 wedensday
  60 thurdsay
  61 fridya
  62 saturady
  63 sudnay
  64 end data.
  65 formats all (wkday2).
  66 print outfile='wkday-in.out'/all.
  67 execute.
  68 EOF
  69 if [ $? -ne 0 ] ; then no_result ; fi
  70
  71 activity="run program"
  72 $SUPERVISOR $PSPP -o pspp.csv wkday-in.pspp
  73 if [ $? -ne 0 ] ; then no_result ; fi
  74
  75 activity="compare output"
  76 diff -u wkday-in.out - <<EOF
  77   .  .  .  .  .  .  .  .  .
  78   .  .  .  .  .  .  .  .  .
  79  MO MO MO MO MO MO MO MO MO
  80  TU TU TU TU TU TU TU TU TU
  81  WE WE WE WE WE WE WE WE WE
  82  TH TH TH TH TH TH TH TH TH
  83  FR FR FR FR FR FR FR FR FR
  84  SA SA SA SA SA SA SA SA SA
  85  SU SU SU SU SU SU SU SU SU
  86 EOF
  87 if [ $? -ne 0 ] ; then fail ; fi
  88
  89 pass