diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-03-28 11:09:57 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-29 14:17:48 +0000 |
| commit | 210db7fc53b6b7664595bb19b3377dc4d623b968 (patch) | |
| tree | 59dc8c61a36d7f5670c15593df295882a4da3d1d /t/op/vec.t | |
| parent | 48a293f80d23821f3c0607e55e7a7df61f5cff78 (diff) | |
| download | perl-210db7fc53b6b7664595bb19b3377dc4d623b968.tar.gz | |
some tests (was Re: Perl5.7.* Unicode/EBCDIC status.)
Message-ID: <Pine.OSF.4.10.10103281858520.314137-100000@aspara.forte.com>
p4raw-id: //depot/perl@9434
Diffstat (limited to 't/op/vec.t')
| -rwxr-xr-x | t/op/vec.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/t/op/vec.t b/t/op/vec.t index 7fe0974770..4b8934d7a2 100755 --- a/t/op/vec.t +++ b/t/op/vec.t @@ -2,6 +2,8 @@ print "1..30\n"; +my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0; + print vec($foo,0,1) == 0 ? "ok 1\n" : "not ok 1\n"; print length($foo) == 0 ? "ok 2\n" : "not ok 2\n"; vec($foo,0,1) = 1; @@ -62,8 +64,14 @@ print "ok 25\n"; eval { vec($foo, 1, 8) = 13 }; print "not " if $@; print "ok 26\n"; -print "not " if $foo ne "\xc4\x0d\xc3\xbf\xc3\xbe"; -print "ok 27\n"; +if ($Is_EBCDIC) { + print "not " if $foo ne "\x8c\x0d\xff\x8a\x69"; + print "ok 27\n"; +} +else { + print "not " if $foo ne "\xc4\x0d\xc3\xbf\xc3\xbe"; + print "ok 27\n"; +} $foo = "\x{100}" . "\xff\xfe"; $x = substr $foo, 1; vec($x, 2, 4) = 7; |