tests/formats/month-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
  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 > month-in.pspp <<EOF
  43 set errors=none.
  44 set mxwarns=10000000.
  45 data list /month3 1-3 (month)
  46            month4 1-4 (month)
  47            month5 1-5 (month)
  48            month6 1-6 (month)
  49            month7 1-7 (month)
  50            month8 1-8 (month)
  51            month9 1-9 (month)
  52            month10 1-10 (month).
  53 begin data.
  54
  55 .
  56 i
  57 ii
  58 iii
  59 iiii
  60 iv
  61 v
  62 vi
  63 vii
  64 viii
  65 ix
  66 viiii
  67 x
  68 xi
  69 xii
  70 0
  71 1
  72 2
  73 3
  74 4
  75 5
  76 6
  77 7
  78 8
  79 9
  80 10
  81 11
  82 12
  83 13
  84 january
  85 janaury
  86 february
  87 febraury
  88 march
  89 marhc
  90 april
  91 may
  92 june
  93 july
  94 august
  95 september
  96 october
  97 november
  98 decmeber
  99 december
 100 end data.
 101 formats all (month3).
 102 print outfile='month-in.out'/all.
 103 execute.
 104 EOF
 105 if [ $? -ne 0 ] ; then no_result ; fi
 106
 107 activity="run program"
 108 $SUPERVISOR $PSPP --testing-mode month-in.pspp
 109 if [ $? -ne 0 ] ; then no_result ; fi
 110
 111 activity="compare output"
 112 diff -u month-in.out - <<EOF
 113    .   .   .   .   .   .   .   .
 114    .   .   .   .   .   .   .   .
 115  JAN JAN JAN JAN JAN JAN JAN JAN
 116  FEB FEB FEB FEB FEB FEB FEB FEB
 117  MAR MAR MAR MAR MAR MAR MAR MAR
 118  MAR   .   .   .   .   .   .   .
 119  APR APR APR APR APR APR APR APR
 120  MAY MAY MAY MAY MAY MAY MAY MAY
 121  JUN JUN JUN JUN JUN JUN JUN JUN
 122  JUL JUL JUL JUL JUL JUL JUL JUL
 123  JUL AUG AUG AUG AUG AUG AUG AUG
 124  SEP SEP SEP SEP SEP SEP SEP SEP
 125  JUL AUG AUG AUG AUG AUG AUG AUG
 126  OCT OCT OCT OCT OCT OCT OCT OCT
 127  NOV NOV NOV NOV NOV NOV NOV NOV
 128  DEC DEC DEC DEC DEC DEC DEC DEC
 129    .   .   .   .   .   .   .   .
 130  JAN JAN JAN JAN JAN JAN JAN JAN
 131  FEB FEB FEB FEB FEB FEB FEB FEB
 132  MAR MAR MAR MAR MAR MAR MAR MAR
 133  APR APR APR APR APR APR APR APR
 134  MAY MAY MAY MAY MAY MAY MAY MAY
 135  JUN JUN JUN JUN JUN JUN JUN JUN
 136  JUL JUL JUL JUL JUL JUL JUL JUL
 137  AUG AUG AUG AUG AUG AUG AUG AUG
 138  SEP SEP SEP SEP SEP SEP SEP SEP
 139  OCT OCT OCT OCT OCT OCT OCT OCT
 140  NOV NOV NOV NOV NOV NOV NOV NOV
 141  DEC DEC DEC DEC DEC DEC DEC DEC
 142    .   .   .   .   .   .   .   .
 143  JAN JAN JAN JAN JAN JAN JAN JAN
 144  JAN JAN JAN JAN JAN JAN JAN JAN
 145  FEB FEB FEB FEB FEB FEB FEB FEB
 146  FEB FEB FEB FEB FEB FEB FEB FEB
 147  MAR MAR MAR MAR MAR MAR MAR MAR
 148  MAR MAR MAR MAR MAR MAR MAR MAR
 149  APR APR APR APR APR APR APR APR
 150  MAY MAY MAY MAY MAY MAY MAY MAY
 151  JUN JUN JUN JUN JUN JUN JUN JUN
 152  JUL JUL JUL JUL JUL JUL JUL JUL
 153  AUG AUG AUG AUG AUG AUG AUG AUG
 154  SEP SEP SEP SEP SEP SEP SEP SEP
 155  OCT OCT OCT OCT OCT OCT OCT OCT
 156  NOV NOV NOV NOV NOV NOV NOV NOV
 157  DEC DEC DEC DEC DEC DEC DEC DEC
 158  DEC DEC DEC DEC DEC DEC DEC DEC
 159 EOF
 160 if [ $? -ne 0 ] ; then fail ; fi
 161
 162 pass