pintos-os.org Git - pspp/blob - tests/command/print.sh

   1 #!/bin/sh
   2
   3 # This program tests the PRINT transformation
   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 # Copy this file --- it's shared with another test
  56 activity="create data"
  57 cp $top_srcdir/tests/data-list.data $TEMPDIR
  58 if [ $? -ne 0 ] ; then no_result ; fi
  59
  60
  61 activity="create program"
  62 cat > $TEMPDIR/print.stat << foobar
  63 title 'Test PRINT transformation'.
  64
  65 data list free table file='$TEMPDIR/data-list.data'/A B C D.
  66 print outfile="foo" table/A(f8.2) '/' B(e8.2) '/' C(n10) '/'.
  67 print space a.
  68 print outfile="foo" /a b c d.
  69 list.
  70
  71 data list list table file='$TEMPDIR/data-list.data'/A B C D.
  72 print table/A B C D.
  73 list.
  74
  75 foobar
  76 if [ $? -ne 0 ] ; then no_result ; fi
  77
  78
  79 activity="run program"
  80 $SUPERVISOR $PSPP --testing-mode -o raw-ascii --testing-mode $TEMPDIR/print.stat > $TEMPDIR/errs
  81 # Note   vv   --- there are errors in input.  Therefore, the  command must FAIL
  82 if [ $? -eq 0 ] ; then fail ; fi
  83
  84 activity="compare error messages"
  85 diff -w $TEMPDIR/errs - <<EOF
  86 $TEMPDIR/data-list.data:1: error: (columns 1-5, field type F8.0) Field does not form a valid floating-point constant.
  87 $TEMPDIR/data-list.data:1: warning: LIST: The expression on PRINT SPACE evaluated to the system-missing value.
  88 $TEMPDIR/data-list.data:2: error: (columns 1-8, field type F8.0) Field does not form a valid floating-point constant.
  89 $TEMPDIR/data-list.data:4: warning: LIST: The expression on PRINT SPACE evaluated to the system-missing value.
  90 $TEMPDIR/data-list.data:4: error: (columns 3-12, field type F8.0) Field does not form a valid floating-point constant.
  91 $TEMPDIR/data-list.data:6: warning: LIST: The expression on PRINT SPACE evaluated to the system-missing value.
  92 $TEMPDIR/data-list.data:1: error: (columns 1-5, field type F8.0) Field does not form a valid floating-point constant.
  93 $TEMPDIR/data-list.data:2: error: (columns 1-8, field type F8.0) Field does not form a valid floating-point constant.
  94 $TEMPDIR/data-list.data:2: warning: LIST: Missing value(s) for all variables from C onward.  These will be filled with the system-missing value or blanks, as appropriate.
  95 $TEMPDIR/data-list.data:3: warning: LIST: Missing value(s) for all variables from B onward.  These will be filled with the system-missing value or blanks, as appropriate.
  96 $TEMPDIR/data-list.data:4: error: (columns 3-12, field type F8.0) Field does not form a valid floating-point constant.
  97 $TEMPDIR/data-list.data:4: warning: LIST: Missing value(s) for all variables from C onward.  These will be filled with the system-missing value or blanks, as appropriate.
  98 $TEMPDIR/data-list.data:5: warning: LIST: Missing value(s) for all variables from C onward.  These will be filled with the system-missing value or blanks, as appropriate.
  99 $TEMPDIR/data-list.data:6: warning: LIST: Missing value(s) for all variables from B onward.  These will be filled with the system-missing value or blanks, as appropriate.
 100 EOF
 101 if [ $? -ne 0 ] ; then fail ; fi
 102
 103
 104 activity="compare output"
 105 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
 106 diff -b  $TEMPDIR/pspp.list - << EOF
 107 1.1 DATA LIST.  Reading free-form data from "$TEMPDIR/data-list.data".
 108 +--------+------+
 109 |Variable|Format|
 110 #========#======#
 111 |A       |F8.0  |
 112 |B       |F8.0  |
 113 |C       |F8.0  |
 114 |D       |F8.0  |
 115 +--------+------+
 116 2.1 PRINT.  Writing 1 record to "foo".
 117 +--------+------+-------+------+
 118 |Variable|Record|Columns|Format|
 119 #========#======#=======#======#
 120 |A       |     1|  1-  8|F8.2  |
 121 |"/"     |     1|  9-  9|A1    |
 122 |B       |     1| 10- 17|E8.2  |
 123 |"/"     |     1| 18- 18|A1    |
 124 |C       |     1| 19- 28|N10.0 |
 125 |"/"     |     1| 29- 29|A1    |
 126 +--------+------+-------+------+
 127        A        B        C        D
 128 -------- -------- -------- --------
 129      .       2.00     3.00     4.00
 130      .       6.00     7.00     8.00
 131      .      10.00    11.00    12.00
 132 3.1 DATA LIST.  Reading free-form data from "$TEMPDIR/data-list.data".
 133 +--------+------+
 134 |Variable|Format|
 135 #========#======#
 136 |A       |F8.0  |
 137 |B       |F8.0  |
 138 |C       |F8.0  |
 139 |D       |F8.0  |
 140 +--------+------+
 141 4.1 PRINT.  Writing 1 record.
 142 +--------+------+-------+------+
 143 |Variable|Record|Columns|Format|
 144 #========#======#=======#======#
 145 |A       |     1|  1-  8|F8.2  |
 146 |B       |     1| 10- 17|F8.2  |
 147 |C       |     1| 19- 26|F8.2  |
 148 |D       |     1| 28- 35|F8.2  |
 149 +--------+------+-------+------+
 150      .       2.00     3.00     4.00
 151        A        B        C        D
 152 -------- -------- -------- --------
 153      .       2.00     3.00     4.00
 154      .       6.00      .        .
 155      .       6.00      .        .
 156     7.00      .        .        .
 157     7.00      .        .        .
 158     8.00      .        .        .
 159     8.00      .        .        .
 160    10.00    11.00      .        .
 161    10.00    11.00      .        .
 162    12.00      .        .        .
 163    12.00      .        .        .
 164 EOF
 165 if [ $? -ne 0 ] ; then fail ; fi
 166
 167
 168 activity="compare print out"
 169 diff $TEMPDIR/foo - << EOF
 170      .  /2.00E+00/0000000003/
 171      .       2.00     3.00     4.00
 172      .  /6.00E+00/0000000007/
 173      .       6.00     7.00     8.00
 174      .  /1.00E+01/0000000011/
 175      .      10.00    11.00    12.00
 176 EOF
 177 if [ $? -ne 0 ] ; then fail ; fi
 178
 179 pass;