From 58aeeeafe4a07609db92966d7cf65b99e1321dc7 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sat, 9 Oct 2010 06:54:46 -0700
Subject: [PATCH] UDPATE: Convert tests to Autotest framework.

---
 tests/automake.mk                |   2 +-
 tests/command/update.sh          | 171 -------------------------------
 tests/language/data-io/update.at |  74 +++++++++++++
 3 files changed, 75 insertions(+), 172 deletions(-)
 delete mode 100755 tests/command/update.sh
 create mode 100644 tests/language/data-io/update.at

diff --git a/tests/automake.mk b/tests/automake.mk
index 00a60708..6ba31ad4 100644
--- a/tests/automake.mk
+++ b/tests/automake.mk
@@ -10,7 +10,6 @@ TESTS_ENVIRONMENT += LC_ALL=C
 TESTS_ENVIRONMENT += EXEEXT=$(EXEEXT)
 
 dist_TESTS = \
-	tests/command/update.sh \
 	tests/command/use.sh \
 	tests/command/variable-display.sh \
 	tests/command/vector.sh \
@@ -332,6 +331,7 @@ TESTSUITE_AT = \
 	tests/language/data-io/print.at \
 	tests/language/data-io/save.at \
 	tests/language/data-io/save-translate.at \
+	tests/language/data-io/update.at \
 	tests/language/dictionary/attributes.at \
 	tests/language/dictionary/missing-values.at \
 	tests/language/dictionary/mrsets.at \
diff --git a/tests/command/update.sh b/tests/command/update.sh
deleted file mode 100755
index 074776cb..00000000
--- a/tests/command/update.sh
+++ /dev/null
@@ -1,171 +0,0 @@
-#!/bin/sh
-
-# This program tests the UPDATE procedure
-
-TEMPDIR=/tmp/pspp-tst-$$
-TESTFILE=$TEMPDIR/update.pspp
-
-
-# ensure that top_builddir  are absolute
-if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
-if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
-top_builddir=`cd $top_builddir; pwd`
-PSPP=$top_builddir/src/ui/terminal/pspp$EXEEXT
-
-# ensure that top_srcdir is absolute
-top_srcdir=`cd $top_srcdir; pwd`
-
-
-STAT_CONFIG_PATH=$top_srcdir/config
-export STAT_CONFIG_PATH
-
-cleanup()
-{
-     if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then 
-	echo "NOT cleaning $TEMPDIR" 
-	return ; 
-     fi
-    cd /
-    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="data create"
-cat > a.data <<EOF
-1aB
-8aM
-3aE
-5aG
-0aA
-5aH
-6aI
-7aJ
-2aD
-7aK
-1aC
-7aL
-4aF
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-cat > b.data <<EOF
-1bN
-3bO
-4bP
-6bQ
-7bR
-9bS
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-cat > update.csv <<EOF
-Table: Data List
-A,B,C,D,INA,INB
-0,a,A,,1,0
-1,b,B,N,1,1
-1,a,C,,1,0
-2,a,D,,1,0
-3,b,E,O,1,1
-4,b,F,P,1,1
-5,a,G,,1,0
-5,a,H,,1,0
-6,b,I,Q,1,1
-7,b,J,R,1,1
-7,a,K,,1,0
-7,a,L,,1,0
-8,a,M,,1,0
-9,b,,S,0,1
-EOF
-
-# Test UPDATE.
-dla="data list notable file='a.data' /A B C 1-3 (a)."
-sa="save outfile='a.sys'."
-dlb="data list notable file='b.data' /A B C 1-3 (a)."
-sb="save outfile='b.sys'."
-for sources in ss sa as; do
-    name="$sources"
-    activity="create $name.pspp"
-    {
-	if [ $sources = ss ]; then
-	    cat <<EOF
-set errors=terminal.
-$dla
-$sa
-$dlb
-$sb
-update file='a.sys' /in=INA /sort
-         /file='b.sys' /in=INB /rename c=D
-         /by a.
-EOF
-	elif [ $sources = sa ]; then
-	    cat <<EOF
-set errors=terminal.
-$dla
-$sa
-$dlb
-
-update file='a.sys' /in=INA /sort
-      /file=* /in=INB /rename c=D
-      /by a.
-EOF
-	elif [ $sources = as ]; then
-	    cat <<EOF
-set errors=terminal.
-$dlb
-$sb
-$dla
-
-update file=* /in=INA /sort
-      /file='b.sys' /in=INB /rename c=D
-      /by a.
-EOF
-	else
-	    activity="internal error"
-	    no_result
-	fi
-	echo 'list.'
-    } > $name.pspp
-    if [ $? -ne 0 ] ; then no_result ; fi
-
-    activity="run $name.pspp"
-    rm -f errors
-    $SUPERVISOR $PSPP -o pspp.csv --error-file=errors $name.pspp
-    if [ $? -ne 0 ] ; then no_result ; fi
-
-    activity="check $name output"
-    perl -pi -e 's/^\s*$//g' pspp.csv
-    diff -c pspp.csv update.csv
-    if [ $? -ne 0 ] ; then fail ; fi
-    diff -c -b -w - errors <<EOF
-$name.pspp:8: warning: UPDATE: Encountered 3 sets of duplicate cases in the master file.
-EOF
-    if [ $? -ne 0 ] ; then fail ; fi
-done
-
-pass;
diff --git a/tests/language/data-io/update.at b/tests/language/data-io/update.at
new file mode 100644
index 00000000..0a2ea289
--- /dev/null
+++ b/tests/language/data-io/update.at
@@ -0,0 +1,74 @@
+m4_define([CHECK_UPDATE],
+  [AT_SETUP([UPDATE $1 with $2])
+   AT_DATA([a.data], [dnl
+1aB
+8aM
+3aE
+5aG
+0aA
+5aH
+6aI
+7aJ
+2aD
+7aK
+1aC
+7aL
+4aF
+])
+   AT_DATA([b.data], [dnl
+1bN
+3bO
+4bP
+6bQ
+7bR
+9bS
+])
+   m4_if([$1], [sav],
+     [AT_DATA([save-a.sps], [dnl
+DATA LIST NOTABLE FILE='a.data' /a b c 1-3 (A).
+SAVE OUTFILE='a.sav'.
+])
+      AT_CHECK([pspp -O format=csv save-a.sps])])
+   m4_if([$2], [sav],
+     [AT_DATA([save-b.sps], [dnl
+DATA LIST NOTABLE FILE='b.data' /a b c 1-3 (A).
+SAVE OUTFILE='b.sav'.
+])
+      AT_CHECK([pspp -O format=csv save-b.sps])])
+   AT_DATA([update.sps], [dnl
+m4_if([$1], [sav], [], [DATA LIST NOTABLE FILE='a.data' /a b c 1-3 (A).])
+m4_if([$2], [sav], [], [DATA LIST NOTABLE FILE='b.data' /a b c 1-3 (A).])
+UPDATE
+    m4_if([$1], [sav], [FILE='a.sav'], [FILE=*]) /IN=InA /SORT
+    m4_if([$2], [sav], [FILE='b.sav'], [FILE=*]) /IN=InB /RENAME c=d
+    BY a.
+LIST.
+])
+   AT_CHECK([pspp -O format=csv update.sps], [0], [dnl
+update.sps:6: warning: UPDATE: Encountered 3 sets of duplicate cases in the master file.
+
+Table: Data List
+a,b,c,d,InA,InB
+0,a,A,,1,0
+1,b,B,N,1,1
+1,a,C,,1,0
+2,a,D,,1,0
+3,b,E,O,1,1
+4,b,F,P,1,1
+5,a,G,,1,0
+5,a,H,,1,0
+6,b,I,Q,1,1
+7,b,J,R,1,1
+7,a,K,,1,0
+7,a,L,,1,0
+8,a,M,,1,0
+9,b,,S,0,1
+])
+AT_CLEANUP
+])
+
+AT_BANNER([UPDATE])
+
+CHECK_UPDATE([sav], [sav])
+CHECK_UPDATE([sav], [inline])
+CHECK_UPDATE([inline], [sav])
-- 
2.30.2