From: David Dyck <david.dyck@fluke.com>
Date: Thu, 5 Apr 2001 09:40:58 +0000 (-0700)
Subject: patch for t/op/oct.t that shows need for patch supplied with bug 20010404.009, (bugs... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93312bbf9c4dd9a5e320a35817a8d3bcd410c1b6;p=p5sagit%2Fp5-mst-13.2.git

patch for t/op/oct.t that shows need for patch supplied with bug 20010404.009, (bugs in hex and oct)
Message-ID: <Pine.LNX.4.30.0104050838330.30478-100000@dd.tc.fluke.com>

p4raw-id: //depot/perl@9574
---

diff --git a/t/op/oct.t b/t/op/oct.t
index 896f875..fe155d3 100755
--- a/t/op/oct.t
+++ b/t/op/oct.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..44\n";
+print "1..50\n";
 
 print +(oct('0b1_0101') ==        0b101_01) ? "ok" : "not ok", " 1\n";
 print +(oct('0b10_101') ==           0_2_5) ? "ok" : "not ok", " 2\n";
@@ -77,3 +77,12 @@ if (ord("\t") != 9) {
 else {
     print "\x2F_" eq "/_"                  ? "ok" : "not ok", " 44\n";
 }
+
+print +(oct('0b'.(  '0'x10).'1_0101') ==  0b101_01) ? "ok" : "not ok", " 45\n";
+print +(oct('0b'.( '0'x100).'1_0101') ==  0b101_01) ? "ok" : "not ok", " 46\n";
+print +(oct('0b'.('0'x1000).'1_0101') ==  0b101_01) ? "ok" : "not ok", " 47\n";
+
+print +(hex((  '0'x10).'01234') ==  0x1234) ? "ok" : "not ok", " 48\n";
+print +(hex(( '0'x100).'01234') ==  0x1234) ? "ok" : "not ok", " 49\n";
+print +(hex(('0'x1000).'01234') ==  0x1234) ? "ok" : "not ok", " 50\n";
+