Changeset 22780 for t

Timestamp:

10/26/08 23:17:24 (2 months ago)

Author:

moritz

Message:

[t/spec] added two bigint tests, slavik++

Files:

• t/spec/S03-operators/arith.t (modified) (2 diffs)

t/spec/S03-operators/arith.t

@@ -3 +3 @@
 use Test;
 
-plan 190;
+plan 192;
 
 my $five = abs(-5);
@@ -413 +413 @@
 dies_ok( { $x = 0; say 3 / $x; }, 'Division by zero dies and is catchable with VInt/VRat variables');
 dies_ok( { $x := 0; say 3 / $x; }, 'Division by zero dies and is catchable with VRef variables');
+
+# This is a rakudo regression wrt bignum:
+#?rakudo todo 'bigint'
+{
+    my $f = 1; $f *= $_ for 2..25; say $f;
+    ok $f == 15511210043330985984000000, 
+       'Can calcualte 25! without loss of precision';
+    ok 2**65 == 36893488147419103232,
+       'Can calcualte 2**65 without loss of precision';
+}
+
+# vim: ft=perl6