X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=tests%2Flanguage%2Futilities%2Ftitle.at;h=61be72222c7d01a515d7e5ca5c6286b71063f547;hb=fe829ccb26aa877de1068a3f1e237930ea8f2d34;hp=bcc0320a2d480f78a11b05c76b3fbf39227ca6a6;hpb=facb4a1ad3c9e8b2cdf55824680eed2afb91aebe;p=pspp

diff --git a/tests/language/utilities/title.at b/tests/language/utilities/title.at
index bcc0320a2d..61be72222c 100644
--- 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