From e5cbc8a9c87db519a18ea70efb48e85e5c3b937a Mon Sep 17 00:00:00 2001 From: John Darrington Date: Tue, 16 Dec 2003 05:14:54 +0000 Subject: [PATCH] Added a test for the PRINT command --- tests/Makefile.am | 2 ++ tests/expect/print.stat | 36 ------------------------------------ tests/print.stat | 28 ---------------------------- tests/splt-file.stat | 23 ----------------------- 4 files changed, 2 insertions(+), 87 deletions(-) delete mode 100644 tests/expect/print.stat delete mode 100644 tests/print.stat delete mode 100644 tests/splt-file.stat 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. -- 2.30.2