From: John Darrington <john@darrington.wattle.id.au>
Date: Fri, 21 Dec 2007 23:44:18 +0000 (+0000)
Subject: Oops.  Added new test.
X-Git-Tag: v0.6.0~154
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=91dc088ddff7486a9d7bdc397761f6b0bcecf41c;p=pspp-builds.git

Oops.  Added new test.
---

diff --git a/tests/bugs/t-test-alpha3.sh b/tests/bugs/t-test-alpha3.sh
new file mode 100755
index 00000000..25bd1125
--- /dev/null
+++ b/tests/bugs/t-test-alpha3.sh
@@ -0,0 +1,117 @@
+#!/bin/sh
+
+# This program tests for a bug which didn't properly
+# compare string values.
+
+TEMPDIR=/tmp/pspp-tst-$$
+TESTFILE=$TEMPDIR/`basename $0`.sps
+
+# ensure that top_srcdir and top_builddir  are absolute
+if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
+if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
+top_srcdir=`cd $top_srcdir; pwd`
+top_builddir=`cd $top_builddir; pwd`
+
+PSPP=$top_builddir/src/ui/terminal/pspp
+
+STAT_CONFIG_PATH=$top_srcdir/config
+export STAT_CONFIG_PATH
+
+LANG=C
+export LANG
+
+
+cleanup()
+{
+     if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then 
+	echo "NOT cleaning $TEMPDIR"
+     	return ; 
+     fi
+     rm -rf $TEMPDIR
+}
+
+
+fail()
+{
+    echo $activity
+    echo FAILED
+    cleanup;
+    exit 1;
+}
+
+
+no_result()
+{
+    echo $activity
+    echo NO RESULT;
+    cleanup;
+    exit 2;
+}
+
+pass()
+{
+    cleanup;
+    exit 0;
+}
+
+mkdir -p $TEMPDIR
+
+cd $TEMPDIR
+
+cat >> $TESTFILE <<EOF
+data list list /x * gv (a8).
+begin data.
+3   One
+2   One
+3   One
+2   One
+3   One
+4   Two
+3.5 Two
+3.0 Two
+end data.
+
+t-test group=gv('One', 'Two')
+	/variables = x.
+EOF
+if [ $? -ne 0 ] ; then no_result ; fi
+
+
+activity="run program"
+$SUPERVISOR $PSPP --testing-mode -o raw-ascii $TESTFILE
+if [ $? -ne 0 ] ; then no_result ; fi
+
+
+activity="compare output"
+perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
+diff  -b  $TEMPDIR/pspp.list - << EOF
+1.1 DATA LIST.  Reading free-form data from INLINE.
++--------+------+
+|Variable|Format|
+#========#======#
+|x       |F8.0  |
+|gv      |A8    |
++--------+------+
+2.1 T-TEST.  Group Statistics
+#==========#=#====#==============#========#
+#     gv   |N|Mean|Std. Deviation|SE. Mean#
+#==========#=#====#==============#========#
+#x One     |5|2.60|          .548|    .245#
+#  Two     |3|3.50|          .500|    .289#
+#==========#=#====#==============#========#
+2.2 T-TEST.  Independent Samples Test
+#============================#==========#===============================================================================#
+#                            # Levene's |                          t-test for Equality of Means                         #
+#                            #-----+----+------+-----+---------------+---------------+---------------------+------------#
+#                            #     |    |      |     |               |               |                     |     95%    #
+#                            #     |    |      |     |               |               |                     +------+-----#
+#                            #  F  |Sig.|   t  |  df |Sig. (2-tailed)|Mean Difference|Std. Error Difference| Lower|Upper#
+#============================#=====#====#======#=====#===============#===============#=====================#======#=====#
+#xEqual variances assumed    #1.127|.329|-2.315|    6|           .060|          -.900|                 .379|-1.826| .026#
+# Equal variances not assumed#     |    |-2.377|4.699|           .067|          -.900|                 .379|-1.892| .092#
+#============================#=====#====#======#=====#===============#===============#=====================#======#=====#
+EOF
+if [ $? -ne 0 ] ; then fail ; fi
+
+
+pass;