RT #109740, big-ish binary bit ops

Raku · Feb 8, 2012 · 45d427d · 45d427d
1 parent 59f3f35
commit 45d427d
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S03-operators/bit.t b/S03-operators/bit.t
@@ -4,7 +4,7 @@ use Test;
 
 # Mostly copied from Perl 5.8.4 s t/op/bop.t
 
-plan 26;
+plan 27;
 
 # test the bit operators '&', '|', '^', '+<', and '+>'
 
@@ -69,6 +69,12 @@ plan 26;
   is( 2 ** 5 +> 2, (2 ** 5) +> 2, 'RT 77232 precedence of +>' );
 }
 
+# RT #109740
+{
+    my ($x, $y) = (2**30, 1);
+    is +^$x +& $y, 1, 'large-ish bit ops';
+}
+
 
 # signed vs. unsigned
 #ok((+^0 +> 0 && do { use integer; ~0 } == -1));