diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-19 19:27:57 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-19 19:27:57 +0000 |
| commit | c4d5f83add3e03ac76c328ed8a29701d939174ce (patch) | |
| tree | 10e9eac6978b40c3c26b5eff7d3142003a73190a /t/camel-III | |
| parent | 63cd067459124b5dc1d2ae98453df4ffdff11607 (diff) | |
| download | perl-c4d5f83add3e03ac76c328ed8a29701d939174ce.tar.gz | |
More EBCDIC fixes.
p4raw-id: //depot/perlio@9246
Diffstat (limited to 't/camel-III')
| -rw-r--r-- | t/camel-III/vstring.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/camel-III/vstring.t b/t/camel-III/vstring.t index 7360ae7654..6dec4ddd69 100644 --- a/t/camel-III/vstring.t +++ b/t/camel-III/vstring.t @@ -5,14 +5,12 @@ BEGIN { } use Test; plan test => 5; -# Error messages may have wide chars, say that is okay - if we can. -eval { binmode STDOUT,":utf8" }; # Chapter 2 pp67/68 my $vs = v1.20.300.4000; ok($vs,"\x{1}\x{14}\x{12c}\x{fa0}","v-string ne \\x{}"); ok($vs,chr(1).chr(20).chr(300).chr(4000),"v-string ne chr()"); -ok('foo',v102.111.111,"v-string ne ''"); +ok('foo',((chr(193) eq 'A') ? v134.150.150 : v102.111.111),"v-string ne ''"); # Chapter 15, pp403 |