Jeremy Lavergne <jeremy@lavergne.gotdns.org> 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.
m4_define([DATA_READER_BINARY],
[AT_SETUP([read and write files with $1])
m4_define([DATA_READER_BINARY],
[AT_SETUP([read and write files with $1])
AT_DATA([input.txt], [dnl
07-22-2007
10-06-2007
AT_DATA([input.txt], [dnl
07-22-2007
10-06-2007
$out .= ' ' x ($lrecl - length ($out));
length ($out) == 32 or die;
print +a2e ($out);
$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 ($_));
}
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])])
DATA_READER_BINARY([MODE=360 /RECFORM=SPANNED],
[[for my $line (@data) {
DATA_READER_BINARY([MODE=360 /RECFORM=SPANNED],
[[for my $line (@data) {
pack ("nCx", length ($r[$i]) + 4, $scc) . a2e ($r[$i]));
}
}
pack ("nCx", length ($r[$i]) + 4, $scc) . a2e ($r[$i]));
}
}
+ dump_records ();]],
+ [AT_CHECK([supports_encodings EBCDIC-US])])