RT #73238: 0xFFFFFFFFFFFFFFFF overflowed to -1

Raku · Mar 30, 2012 · 0954436 · 0954436
1 parent aa81a8b
commit 0954436
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S02-types/num.t b/S02-types/num.t
@@ -4,7 +4,7 @@ use Test;
 
 #L<S02/The C<Num> and C<Rat> Types/Perl 6 intrinsically supports big integers>
 
-plan 64;
+plan 65;
 
 isa_ok( eval(1.Num.perl), Num, 'eval 1.Num.perl is Num' );
 is_approx( eval(1.Num.perl), 1, 'eval 1.Num.perl is 1' );
@@ -174,4 +174,7 @@ is(4_2.0_1, 42.01,  'single underscores are ok');
 is 0_1, 1, "0_1 is parsed as 0d1";
 is +^1, -2, '+^1 == -2 as promised';
 
+# RT #73238
+ok 0xFFFFFFFFFFFFFFFF > 1, '0xFFFFFFFFFFFFFFFF is not -1';
+
 # vim: ft=perl6