From: John Darrington <john@darrington.wattle.id.au>
Date: Tue, 16 Dec 2003 05:14:54 +0000 (+0000)
Subject: Added a test for the PRINT command
X-Git-Tag: v0.4.0~448
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e5cbc8a9c87db519a18ea70efb48e85e5c3b937a;p=pspp-builds.git

Added a test for the PRINT command
---

diff --git a/tests/Makefile.am b/tests/Makefile.am
index 2d2cf71c..678f111d 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -11,7 +11,9 @@ TESTS = command/aggregate.sh \
 	command/count.sh \
 	command/descriptives.sh \
 	command/flip.sh \
+	command/print.sh \
 	command/sort.sh \
+	command/split-file.sh \
 	bugs/double-frequency.sh \
 	bugs/html-frequency.sh
 
diff --git a/tests/expect/print.stat b/tests/expect/print.stat
deleted file mode 100644
index 80d6deff..00000000
--- a/tests/expect/print.stat
+++ /dev/null
@@ -1,36 +0,0 @@
-data-list.data:1: error: (columns 1-5, field type F8.0) Field does not form a
-        valid floating-point constant.
-data-list.data:1: warning: LIST: The expression on PRINT SPACE evaluated to -
-        2147483648.  It's not possible to PRINT SPACE a negative number of
-        lines.
-data-list.data:2: error: (columns 1-8, field type F8.0) Field does not form a
-        valid floating-point constant.
-data-list.data:4: warning: LIST: The expression on PRINT SPACE evaluated to -
-        2147483648.  It's not possible to PRINT SPACE a negative number of
-        lines.
-data-list.data:4: error: (columns 3-12, field type F8.0) Field does not form a
-        valid floating-point constant.
-data-list.data:6: warning: LIST: The expression on PRINT SPACE evaluated to -
-        2147483648.  It's not possible to PRINT SPACE a negative number of
-        lines.
-data-list.data:1: error: (columns 1-5, field type F8.0) Field does not form a
-        valid floating-point constant.
-data-list.data:2: error: (columns 1-8, field type F8.0) Field does not form a
-        valid floating-point constant.
-data-list.data:2: warning: LIST: Missing value(s) for all variables from C
-        onward.  These will be filled with the system-missing value or blanks,
-        as appropriate.
-data-list.data:3: warning: LIST: Missing value(s) for all variables from B
-        onward.  These will be filled with the system-missing value or blanks,
-        as appropriate.
-data-list.data:4: error: (columns 3-12, field type F8.0) Field does not form a
-        valid floating-point constant.
-data-list.data:4: warning: LIST: Missing value(s) for all variables from C
-        onward.  These will be filled with the system-missing value or blanks,
-        as appropriate.
-data-list.data:5: warning: LIST: Missing value(s) for all variables from C
-        onward.  These will be filled with the system-missing value or blanks,
-        as appropriate.
-data-list.data:6: warning: LIST: Missing value(s) for all variables from B
-        onward.  These will be filled with the system-missing value or blanks,
-        as appropriate.
diff --git a/tests/print.stat b/tests/print.stat
deleted file mode 100644
index 36520961..00000000
--- a/tests/print.stat
+++ /dev/null
@@ -1,28 +0,0 @@
-title 'Test PRINT transformation'.
-
-remark EOF
-----------------------------------------------------------------------
-There is no test for DATA LIST FIXED since it is imagined that the
-rest of the tests give it a pretty good workout.
-----------------------------------------------------------------------
-EOF
-remark EOF
-----------------------------------------------------------------------
-Testing use of DATA LIST FREE.
-----------------------------------------------------------------------
-EOF
-data list free table file='data-list.data'/A B C D.
-print outfile="foo" table/A(f8.2) '/' B(e8.2) '/' C(n10) '/' D(rbhex16) '/'.
-print space a.
-print outfile="foo" /a b c d.
-list.
-
-remark EOF
-----------------------------------------------------------------------
-Testing use of DATA LIST LIST.
-----------------------------------------------------------------------
-EOF
-data list list table file='data-list.data'/A B C D.
-print table/A B C D.
-list.
-
diff --git a/tests/splt-file.stat b/tests/splt-file.stat
deleted file mode 100644
index 422d3810..00000000
--- a/tests/splt-file.stat
+++ /dev/null
@@ -1,23 +0,0 @@
-title 'Test SPLIT FILE utility'.
-
-data list /x 1 y 2.
-begin data.
-12
-16
-17
-19
-15
-14
-27
-20
-26
-25
-28
-29
-24
-end data.
-split file by x.
-formats x(e20.2).
-value labels x 1 'This is the value label for value 1.'
-               2 'This is the value label for value 2.'.
-descriptives y.