From: John Darrington <john@darrington.wattle.id.au>
Date: Fri, 22 Oct 2004 08:00:39 +0000 (+0000)
Subject: Added infrastructure for the ONEWAY command.
X-Git-Tag: sav-api~2494
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=93d02d0e1501d20706bd914e358e114c985fc9a3;p=pspp

Added infrastructure for the ONEWAY command.
---

diff --git a/tests/Makefile.am b/tests/Makefile.am
index ac622c1b07..a988206717 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -15,6 +15,7 @@ TESTS = \
 	command/lag.sh \
 	command/list.sh \
 	command/loop.sh \
+	command/oneway.sh \
 	command/print.sh \
 	command/sample.sh \
 	command/sort.sh \
diff --git a/tests/command/oneway.sh b/tests/command/oneway.sh
new file mode 100755
index 0000000000..193ab64774
--- /dev/null
+++ b/tests/command/oneway.sh
@@ -0,0 +1,71 @@
+#!/bin/sh
+
+# This program tests that the ONEWAY anova command works OK
+
+TEMPDIR=/tmp/pspp-tst-$$
+
+here=`pwd`;
+
+# ensure that top_srcdir is absolute
+cd $top_srcdir; top_srcdir=`pwd`
+
+export STAT_CONFIG_PATH=$top_srcdir/config
+
+
+cleanup()
+{
+     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
+
+activity="create program"
+cat > $TEMPDIR/out.stat <<EOF
+data list list /id * cables * price *.
+begin data.
+1 2.0 3.0
+2 1.0 2.0
+3 2.0 4.5
+4 2.0 4.5
+5 3.0 6.0
+end data.
+
+ONEWAY 
+ id cables BY price
+ /STATISTICS descriptives homogeneity
+ /MISSING analysis .
+EOF
+if [ $? -ne 0 ] ; then no_result ; fi
+
+
+activity="run program"
+$SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/out.stat
+if [ $? -ne 0 ] ; then no_result ; fi
+
+pass