wokr on docs

[pspp] / tests / language / utilities / title.at

diff --git a/tests/language/utilities/title.at b/tests/language/utilities/title.at
index bcc0320a2d480f78a11b05c76b3fbf39227ca6a6..61be72222c7d01a515d7e5ca5c6286b71063f547 100644 (file)
--- a/tests/language/utilities/title.at
+++ b/tests/language/utilities/title.at
@@ -77,8 +77,8 @@ dnl Filter out the dates/times
 AT_CHECK([[sed 's/(Entered [^)]*)/(Entered <date>)/' pspp.csv]], [0], [dnl
 Table: Reading 1 record from INLINE.
 Variable,Record,Columns,Format
-X,1,1-  1,F1.0
-Y,1,2-  2,F1.0
+X,1,1-1,F1.0
+Y,1,2-2,F1.0
 
 Table: Documents
 "document First line of a document
@@ -127,3 +127,21 @@ Table: File Label
 Label,This is a test file label
 ])
 AT_CLEANUP
+
+AT_SETUP([TITLE and SUBTITLE])
+for command in TITLE SUBTITLE; do
+    cat >title.sps <<EOF
+$command foo  bar.
+SHOW $command.
+
+$command 'foo bar baz quux'.
+SHOW $command.
+EOF
+    cat >expout <<EOF
+title.sps:2: note: SHOW: $command is foo  bar.
+
+title.sps:5: note: SHOW: $command is foo bar baz quux.
+EOF
+    AT_CHECK([pspp -O format=csv title.sps], [0], [expout])
+done
+AT_CLEANUP