diff options
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index ac1a44fadb..41a720215f 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -59,12 +59,12 @@ $a = ":="; split /($a)/o, "a:=b:=c"; print "@_" EXPECT a := b := c ######## -use integer; $cusp = ~0 ^ (~0 >> 1); +use integer; $, = " "; -print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n"; +print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, 8 | (($cusp + 1) % 8 + 7), "!\n"; EXPECT --1 0 0 1 ! +7 0 0 8 ! ######## $foo=undef; $foo->go; EXPECT |