tests/command/file-label.sh

   1 #!/bin/sh
   2
   3 # This program tests the FILE LABEL and  DOCUMENT commands
   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 LANG=C
  21 export LANG
  22
  23 cleanup()
  24 {
  25      cd /
  26      rm -rf $TEMPDIR
  27 }
  28
  29
  30 fail()
  31 {
  32     echo $activity
  33     echo FAILED
  34     cleanup;
  35     exit 1;
  36 }
  37
  38
  39 no_result()
  40 {
  41     echo $activity
  42     echo NO RESULT;
  43     cleanup;
  44     exit 2;
  45 }
  46
  47 pass()
  48 {
  49     cleanup;
  50     exit 0;
  51 }
  52
  53 mkdir -p $TEMPDIR
  54
  55 cd $TEMPDIR
  56
  57 activity="create program"
  58 cat > $TESTFILE << EOF
  59
  60 /* Set up a dummy active file in memory.
  61 data list /X 1 Y 2.
  62 begin data.
  63 16
  64 27
  65 38
  66 49
  67 50
  68 end data.
  69
  70 /* Add value labels for some further testing of value labels.
  71 value labels x y 1 'first label' 2 'second label' 3 'third label'.
  72 add value labels x 1 'first label mark two'.
  73
  74 /* Add a file label and a few documents.
  75 file label This is a test file label.
  76 document First line of a document
  77 This is the second very long line of a document in an attempt to overflow the input buffer with a really long line
  78 Note that the last line should end with a period: .
  79
  80 /* Display the documents.
  81 display documents.
  82 display file label.     /* undocumented feature of PSPP
  83
  84 /* Save the active file then get it and display the documents again.
  85 save /OUTFILE='foo.save'.
  86 get /FILE='foo.save'.
  87 display documents.
  88 display file label.     /* undocumented feature of PSPP
  89
  90 /* There is an interesting interaction that occurs if the 'execute'
  91 /* command below.  What happens is that an error message is output
  92 /* at the next 'save' command that 'foo.save' is already open for
  93 /* input.  This is because the 'get' hasn't been executed yet and
  94 /* therefore PSPP would be reading from and writing to the same
  95 /* file at once, which is obviously a Bad Thing.  But 'execute'
  96 /* here clears up that potential problem.
  97 execute.
  98
  99 /* Add another (shorter) document and try again.
 100 document There should be another document now.
 101 display documents.
 102
 103 /* Save and get.
 104 save /OUTFILE='foo.save'.
 105 get /FILE='foo.save'.
 106 display documents.
 107 display file label.     /* undocumented feature of PSPP
 108
 109 /* Done.
 110
 111 EOF
 112 if [ $? -ne 0 ] ; then no_result ; fi
 113
 114 activity="run program"
 115 $SUPERVISOR $PSPP --testing-mode -o raw-ascii $TESTFILE
 116 if [ $? -ne 0 ] ; then no_result ; fi
 117
 118 # We need to filter out the dates/times
 119 activity="date filter"
 120 grep -v 'Document entered' $TEMPDIR/pspp.list > $TEMPDIR/pspp.filtered
 121 if [ $? -ne 0 ] ; then no_result ; fi
 122
 123
 124 activity="compare results"
 125 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.filtered
 126 diff -b  $TEMPDIR/pspp.filtered - <<EOF
 127 1.1 DATA LIST.  Reading 1 record from INLINE.
 128 +--------+------+-------+------+
 129 |Variable|Record|Columns|Format|
 130 #========#======#=======#======#
 131 |X       |     1|  1-  1|F1.0  |
 132 |Y       |     1|  2-  2|F1.0  |
 133 +--------+------+-------+------+
 134 Documents in the active file:
 135    First line of a document
 136    This is the second very long line of a document in an attempt to overflow the
 137    Note that the last line should end with a period: .
 138 File label:
 139 This is a test file label
 140 Documents in the active file:
 141    First line of a document
 142    This is the second very long line of a document in an attempt to overflow the
 143    Note that the last line should end with a period: .
 144 File label:
 145 This is a test file label
 146 Documents in the active file:
 147    First line of a document
 148    This is the second very long line of a document in an attempt to overflow the
 149    Note that the last line should end with a period: .
 150    There should be another document now.
 151 Documents in the active file:
 152    First line of a document
 153    This is the second very long line of a document in an attempt to overflow the
 154    Note that the last line should end with a period: .
 155    There should be another document now.
 156 File label:
 157 This is a test file label
 158 EOF
 159 if [ $? -ne 0 ] ; then fail ; fi
 160
 161
 162 pass;