diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-10-10 03:26:07 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-13 01:27:38 +0000 |
| commit | 2f2d036aac7a6d378d15faf96ae8ed621bef910c (patch) | |
| tree | 90cc96947e650aee13ea650adc5c05b920dc81d9 /t/op/oct.t | |
| parent | 9b10d7ba574744324bd3b7575e2be2416dcf17ed (diff) | |
| download | perl-2f2d036aac7a6d378d15faf96ae8ed621bef910c.tar.gz | |
was: Re: off to a bad start on fixing regression tests
Message-ID: <Pine.OSF.4.10.10010101020180.441897-100000@aspara.forte.com>
p4raw-id: //depot/perl@7212
Diffstat (limited to 't/op/oct.t')
| -rwxr-xr-x | t/op/oct.t | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/t/op/oct.t b/t/op/oct.t index 3a487d8173..896f8756b6 100755 --- a/t/op/oct.t +++ b/t/op/oct.t @@ -57,11 +57,23 @@ print length eq 5 ? "ok" : "not ok", " 37\n"; print $_ eq "\0"."_"."7"."_"."7" ? "ok" : "not ok", " 38\n"; chop, chop, chop, chop; print $_ eq "\0" ? "ok" : "not ok", " 39\n"; -print "\077_" eq "?_" ? "ok" : "not ok", " 40\n"; +if (ord("\t") != 9) { + # question mark is 111 in 1047, 037, && POSIX-BC + print "\157_" eq "?_" ? "ok" : "not ok", " 40\n"; +} +else { + print "\077_" eq "?_" ? "ok" : "not ok", " 40\n"; +} $_ = "\x_7_7"; print length eq 5 ? "ok" : "not ok", " 41\n"; print $_ eq "\0"."_"."7"."_"."7" ? "ok" : "not ok", " 42\n"; chop, chop, chop, chop; print $_ eq "\0" ? "ok" : "not ok", " 43\n"; -print "\x2F_" eq "/_" ? "ok" : "not ok", " 44\n"; +if (ord("\t") != 9) { + # / is 97 in 1047, 037, && POSIX-BC + print "\x61_" eq "/_" ? "ok" : "not ok", " 44\n"; +} +else { + print "\x2F_" eq "/_" ? "ok" : "not ok", " 44\n"; +} |