From: Ben Pfaff Date: Fri, 8 Apr 2011 04:49:13 +0000 (-0700) Subject: tests: Only check MODE=360 when EBCDIC is supported. X-Git-Tag: v0.7.8~83 X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dd9a3359e2e59ee07885462b42017e6585ea0d50;p=pspp-builds.git tests: Only check MODE=360 when EBCDIC is supported. Jeremy Lavergne reported that these tests fail on Mac OS X. testsuite.log showed that Mac OS X did not support the EBCDIC-US encoding, so this OS cannot support these tests. --- diff --git a/tests/language/data-io/data-reader.at b/tests/language/data-io/data-reader.at index f00a42c4..a6a5f360 100644 --- a/tests/language/data-io/data-reader.at +++ b/tests/language/data-io/data-reader.at @@ -65,6 +65,7 @@ AT_CLEANUP m4_define([DATA_READER_BINARY], [AT_SETUP([read and write files with $1]) +$3 AT_DATA([input.txt], [dnl 07-22-2007 10-06-2007 @@ -204,13 +205,15 @@ DATA_READER_BINARY([MODE=360 /RECFORM=FIXED /LRECL=32], $out .= ' ' x ($lrecl - length ($out)); length ($out) == 32 or die; print +a2e ($out); - }]) + }], + [AT_CHECK([supports_encodings EBCDIC-US])]) DATA_READER_BINARY([MODE=360 /RECFORM=VARIABLE], [for $_ (@data) { push (@records, pack ("n xx", length ($_) + 4) . a2e ($_)); } - dump_records ();]) + dump_records ();], + [AT_CHECK([supports_encodings EBCDIC-US])]) DATA_READER_BINARY([MODE=360 /RECFORM=SPANNED], [[for my $line (@data) { @@ -229,4 +232,5 @@ DATA_READER_BINARY([MODE=360 /RECFORM=SPANNED], pack ("nCx", length ($r[$i]) + 4, $scc) . a2e ($r[$i])); } } - dump_records ();]]) + dump_records ();]], + [AT_CHECK([supports_encodings EBCDIC-US])])