lexer: Change the pipeline to allow more flexible use of macros.

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

diff --git a/tests/language/utilities/title.at b/tests/language/utilities/title.at
index cd954f24bc4517f4c41d3ae64e05620ffd843ab8..61be72222c7d01a515d7e5ca5c6286b71063f547 100644 (file)
--- a/tests/language/utilities/title.at
+++ b/tests/language/utilities/title.at
@@ -1,3 +1,19 @@
+dnl PSPP - a program for statistical analysis.
+dnl Copyright (C) 2017 Free Software Foundation, Inc.
+dnl
+dnl This program is free software: you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation, either version 3 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl This program is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
+dnl
 AT_BANNER([TITLE and related commands])
 
 AT_SETUP([FILE LABEL and (ADD) DOCUMENT])
@@ -61,79 +77,71 @@ 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
-
-Documents in the active dataset:
-
-document First line of a document
+X,1,1-1,F1.0
+Y,1,2-2,F1.0
 
+Table: Documents
+"document First line of a document
 Second line of a document
-
 The last line should end with a period: .
+   (Entered <date>)"
 
-(Entered <date>)
-
-File label: This is a test file label
-
-Documents in the active dataset:
-
-document First line of a document
+Table: File Label
+Label,This is a test file label
 
+Table: Documents
+"document First line of a document
 Second line of a document
-
 The last line should end with a period: .
-
-(Entered <date>)
-
+   (Entered <date>)
 Line one
-
 Line two
+   (Entered <date>)"
 
-(Entered <date>)
-
-File label: This is a test file label
-
-Documents in the active dataset:
-
-document First line of a document
+Table: File Label
+Label,This is a test file label
 
+Table: Documents
+"document First line of a document
 Second line of a document
-
 The last line should end with a period: .
-
-(Entered <date>)
-
+   (Entered <date>)
 Line one
-
 Line two
-
-(Entered <date>)
-
+   (Entered <date>)
 document There should be another document now.
+   (Entered <date>)"
 
-(Entered <date>)
-
-Documents in the active dataset:
-
-document First line of a document
-
+Table: Documents
+"document First line of a document
 Second line of a document
-
 The last line should end with a period: .
-
-(Entered <date>)
-
+   (Entered <date>)
 Line one
-
 Line two
-
-(Entered <date>)
-
+   (Entered <date>)
 document There should be another document now.
+   (Entered <date>)"
 
-(Entered <date>)
-
-File label: This is a test file label
+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