From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 10 Oct 2000 10:26:07 +0000 (-0700)
Subject: was: Re: off to a bad start on fixing regression tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f2d036aac7a6d378d15faf96ae8ed621bef910c;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/op/oct.t b/t/op/oct.t
index 3a487d8..896f875 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";
+}