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