From: Jarkko Hietaniemi Date: Sat, 4 Sep 1999 18:04:47 +0000 (+0000) Subject: use integer on the problematic subtest. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3a6a6fe5a9e3ef67f27330d1df0f6940f52d6a2;p=p5sagit%2Fp5-mst-13.2.git use integer on the problematic subtest. p4raw-id: //depot/cfgperl@4075 --- diff --git a/t/op/misc.t b/t/op/misc.t index 46b9a04..3c385cd 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -59,21 +59,12 @@ $a = ":="; split /($a)/o, "a:=b:=c"; print "@_" EXPECT a := b := c ######## -eval { $q = pack "q", 0 }; -if ($@) { +use integer; $cusp = ~0 ^ (~0 >> 1); $, = " "; print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n"; -} else { -# We are on a 64-bit platform: fake it. -# (If we have long doubles we might not need to fake it.) -# Background: the $cusp will get converted from a UV into an NV because of -# the subtraction and addition. Taking away or adding 1 from such a large -# NV doesn't actually change the NV, so the modulo fails. -print "7 0 0 1 !\n"; -} EXPECT -7 0 0 1 ! +-1 0 0 1 ! ######## $foo=undef; $foo->go; EXPECT