+++ /dev/null
-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])
-AT_DATA([file-label.sps], [dnl
-/* Set up a dummy active dataset in memory.
-data list /X 1 Y 2.
-begin data.
-16
-27
-38
-49
-50
-end data.
-
-/* Add value labels for some further testing of value labels.
-value labels x y 1 'first label' 2 'second label' 3 'third label'.
-add value labels x 1 'first label mark two'.
-
-/* Add a file label and a few documents.
-file label This is a test file label.
-document First line of a document
-Second line of a document
-The last line should end with a period: .
-
-
-/* Display the documents.
-display documents.
-display file label.
-
-ADD DOCUMENT 'Line one' 'Line two'.
-
-/* Save the active dataset then get it and display the documents again.
-save /OUTFILE='foo.save'.
-get /FILE='foo.save'.
-display documents.
-display file label.
-
-/* There is an interesting interaction that occurs if the 'execute'
-/* command below. What happens is that an error message is output
-/* at the next 'save' command that 'foo.save' is already open for
-/* input. This is because the 'get' hasn't been executed yet and
-/* therefore PSPP would be reading from and writing to the same
-/* file at once, which is obviously a Bad Thing. But 'execute'
-/* here clears up that potential problem.
-execute.
-
-/* Add another (shorter) document and try again.
-document There should be another document now.
-display documents.
-
-/* Save and get.
-save /OUTFILE='foo.save'.
-get /FILE='foo.save'.
-display documents.
-display file label.
-
-/* Done.
-])
-AT_CHECK([pspp -o pspp.csv file-label.sps])
-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
-
-Table: Documents
-"document First line of a document
-Second line of a document
-The last line should end with a period: .
- (Entered <date>)"
-
-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>)
-Line one
-Line two
- (Entered <date>)"
-
-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>)
-Line one
-Line two
- (Entered <date>)
-document There should be another document now.
- (Entered <date>)"
-
-Table: Documents
-"document First line of a document
-Second line of a document
-The last line should end with a period: .
- (Entered <date>)
-Line one
-Line two
- (Entered <date>)
-document There should be another document now.
- (Entered <date>)"
-
-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
-Table: Settings
-$command,foo bar
-
-Table: Settings
-$command,foo bar baz quux
-EOF
- AT_CHECK([pspp -O format=csv title.sps], [0], [expout])
-done
-AT_CLEANUP
projects / pspp / blobdiff