X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Futilities%2Ftitle.at;h=61be72222c7d01a515d7e5ca5c6286b71063f547;hb=6bad8bb980d4219d57389cde20dd2e77be2236c4;hp=822b5c509198c0ebaf8fa1fb14f14ebf0ce51e5a;hpb=4f8462c882f28fed5345be2dab9d2cc73cd0b2da;p=pspp

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