From dd9a3359e2e59ee07885462b42017e6585ea0d50 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Thu, 7 Apr 2011 21:49:13 -0700 Subject: [PATCH] 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. --- tests/language/data-io/data-reader.at | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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])]) -- 2.30.2