X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fdata-io%2Fdata-reader.at;h=4156abf86908f2940e33d7dccf64891bcae2c4d7;hb=901d90ada6fe4c9cc1fb93855fd6d7012029f35c;hp=a6a5f360aeb06f6142d148cd57f54a50a00ae7b1;hpb=fe8dc2171009e90d2335f159d05f7e6660e24780;p=pspp diff --git a/tests/language/data-io/data-reader.at b/tests/language/data-io/data-reader.at index a6a5f360ae..4156abf869 100644 --- a/tests/language/data-io/data-reader.at +++ b/tests/language/data-io/data-reader.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 . +dnl AT_BANNER([BEGIN DATA]) # BEGIN DATA can run as a command in itself, or it can appear as part @@ -17,12 +33,10 @@ BEGIN DATA. END DATA. ]) AT_CHECK([pspp -O format=csv begin-data.sps], [0], [dnl -Title: Test BEGIN DATA ... END DATA - Table: Reading 1 record from INLINE. Variable,Record,Columns,Format -a,1,1- 1,F1.0 -b,1,2- 2,F1.0 +a,1,1-1,F1.0 +b,1,2-2,F1.0 Table: Data List a,b @@ -50,8 +64,8 @@ list. AT_CHECK([pspp -O format=csv begin-data.sps], [0], [dnl Table: Reading 1 record from INLINE. Variable,Record,Columns,Format -A,1,1- 1,F1.0 -B,1,2- 2,F1.0 +A,1,1-1,F1.0 +B,1,2-2,F1.0 Table: Data List A,B @@ -63,7 +77,7 @@ A,B ]) AT_CLEANUP -m4_define([DATA_READER_BINARY], +m4_define([DATA_READER_BINARY], [AT_SETUP([read and write files with $1]) $3 AT_DATA([input.txt], [dnl @@ -206,14 +220,14 @@ DATA_READER_BINARY([MODE=360 /RECFORM=FIXED /LRECL=32], length ($out) == 32 or die; print +a2e ($out); }], - [AT_CHECK([supports_encodings EBCDIC-US])]) + [AT_CHECK([i18n-test supports_encodings EBCDIC-US])]) DATA_READER_BINARY([MODE=360 /RECFORM=VARIABLE], [for $_ (@data) { push (@records, pack ("n xx", length ($_) + 4) . a2e ($_)); } dump_records ();], - [AT_CHECK([supports_encodings EBCDIC-US])]) + [AT_CHECK([i18n-test supports_encodings EBCDIC-US])]) DATA_READER_BINARY([MODE=360 /RECFORM=SPANNED], [[for my $line (@data) { @@ -233,4 +247,4 @@ DATA_READER_BINARY([MODE=360 /RECFORM=SPANNED], } } dump_records ();]], - [AT_CHECK([supports_encodings EBCDIC-US])]) + [AT_CHECK([i18n-test supports_encodings EBCDIC-US])])