tests/bugs/recode-copy-bug.sh

   1 #!/bin/sh
   2
   3 # This program tests ....
   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      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
  24         echo "NOT cleaning $TEMPDIR"
  25         return ;
  26      fi
  27      cd /
  28      rm -rf $TEMPDIR
  29 }
  30
  31
  32 fail()
  33 {
  34     echo $activity
  35     echo FAILED
  36     cleanup;
  37     exit 1;
  38 }
  39
  40
  41 no_result()
  42 {
  43     echo $activity
  44     echo NO RESULT;
  45     cleanup;
  46     exit 2;
  47 }
  48
  49 pass()
  50 {
  51     cleanup;
  52     exit 0;
  53 }
  54
  55 mkdir -p $TEMPDIR
  56 cd $TEMPDIR
  57 if [ $? -ne 0 ] ; then no_result ; fi
  58
  59 activity="create syntax 1"
  60 cat > recode-copy-bug-1.stat <<EOF
  61 TITLE 'Test for regression of recode COPY bug'
  62
  63 DATA LIST LIST
  64  /A (A1)
  65  B (A1).
  66
  67 BEGIN DATA
  68 1     2
  69 2     3
  70 3     4
  71 END DATA.
  72
  73 ** Clearly, the else=copy is superfluous here
  74 RECODE A ("1"="3") ("3"="1") (ELSE=COPY).
  75 EXECUTE.
  76 LIST.
  77 EOF
  78 if [ $? -ne 0 ] ; then no_result ; fi
  79
  80 activity="create syntax 2"
  81 cat > recode-copy-bug-2.stat <<EOF
  82 DATA LIST LIST
  83  /A (A1)
  84  B (A1).
  85
  86 BEGIN DATA
  87 1     2
  88 2     3
  89 3     4
  90 END DATA.
  91
  92 STRING A1 (A1).
  93 RECODE A ("1"="3") ("3"="1") (ELSE=COPY) INTO a1.
  94 EXECUTE.
  95 LIST.
  96 EOF
  97 if [ $? -ne 0 ] ; then no_result ; fi
  98
  99 activity="run program 1"
 100 $SUPERVISOR $PSPP --testing-mode recode-copy-bug-1.stat
 101 if [ $? -ne 0 ] ; then no_result ; fi
 102
 103 activity="compare output 1"
 104 diff -c $TEMPDIR/pspp.csv - <<EOF
 105 Title: Test for regression of recode COPY bug
 106
 107 Table: Reading free-form data from INLINE.
 108 Variable,Format
 109 A,A1
 110 B,A1
 111
 112 Table: Data List
 113 A,B
 114 3,2
 115 2,3
 116 1,4
 117 EOF
 118 if [ $? -ne 0 ] ; then fail ; fi
 119
 120
 121 activity="run program 2"
 122 $SUPERVISOR $PSPP --testing-mode recode-copy-bug-2.stat
 123 if [ $? -ne 0 ] ; then no_result ; fi
 124
 125 activity="compare output 2"
 126 diff -c $TEMPDIR/pspp.csv - <<EOF
 127 Table: Reading free-form data from INLINE.
 128 Variable,Format
 129 A,A1
 130 B,A1
 131
 132 Table: Data List
 133 A,B,A1
 134 1,2,3
 135 2,3,2
 136 3,4,1
 137 EOF
 138 if [ $? -ne 0 ] ; then fail ; fi
 139
 140 pass;