diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-31 05:00:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-31 05:00:07 +0000 |
| commit | a901eef84aae580e80c0351bb32ee5bca0f349f7 (patch) | |
| tree | 90198102999120bcafd2308ece135653dc120dad /t/run | |
| parent | 0be47ac6ef3026eb6eaaf22fb128d8e2d947e0c7 (diff) | |
| download | perl-a901eef84aae580e80c0351bb32ee5bca0f349f7.tar.gz | |
Some low-hanging fruit for EBCDIC portability
(or for marking as EBCDIC todos)
p4raw-id: //depot/perl@19097
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switchC.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/run/switchC.t b/t/run/switchC.t index 0f8f16a6ce..fd05e133dd 100644 --- a/t/run/switchC.t +++ b/t/run/switchC.t @@ -20,10 +20,12 @@ my $r; my @tmpfiles = (); END { unlink @tmpfiles } +my $b = pack("C*", unpack("U0C*", pack("U",256))); + $r = runperl( switches => [ '-CO', '-w' ], prog => 'print chr(256)', stderr => 1 ); -like( $r, qr/^\xC4\x80(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' ); +like( $r, qr/^$b(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' ); SKIP: { if (exists $ENV{PERL_UNICODE} && @@ -33,14 +35,14 @@ SKIP: { $r = runperl( switches => [ '-CI', '-w' ], prog => 'print ord(<STDIN>)', stderr => 1, - stdin => "\xC4\x80" ); + stdin => $b ); like( $r, qr/^256(?:\r?\n)?$/s, '-CI: read in UTF-8 input' ); } $r = runperl( switches => [ '-CE', '-w' ], prog => 'warn chr(256), qq(\n)', stderr => 1 ); -like( $r, qr/^\xC4\x80(?:\r?\n)?$/s, '-CE: UTF-8 stderr' ); +like( $r, qr/^$b(?:\r?\n)?$/s, '-CE: UTF-8 stderr' ); $r = runperl( switches => [ '-Co', '-w' ], prog => 'open(F, q(>out)); print F chr(256); close F', |