Permalink
Browse files

rakudofudge new tests

  • Loading branch information...
moritz committed Sep 24, 2012
1 parent 2d6c012 commit 3ec12fbb4dfefcc24c962f88373234aba84c28dd
Showing with 2 additions and 0 deletions.
  1. +1 −0 S32-list/pick.t
  2. +1 −0 S32-num/log.t
View
@@ -157,6 +157,7 @@ is (<a b c d>.pick(*).sort).Str, 'a b c d', 'pick(*) returns all the items in th
ok (so 1 < all(%seen.keys) < 1_000_000), '... and all the elements are in range';
}
+#?rakudo skip '.pick on huge integer ranges'
{
my %seen;
%seen{$_} = 1 for (1 .. (10**1000) ).pick(50);
View
@@ -72,6 +72,7 @@ is_approx(log10(-1i), -0.5i * $pi / log(10), "got the log10 of -i (complex unit)
is_approx( (-1i).log10(), -0.5i*$pi / log(10), " (i).log10 = - i * pi/(2 log(10))");
isa_ok( log10(-1+0i), Complex, 'log10 of a complex returns a complex, not a list');
+#?rakudo todo 'HugeInt.log'
is_approx (10 ** 1000).log10, 1000, "Can take the log of very large Ints";
# vim: ft=perl6

0 comments on commit 3ec12fb

Please sign in to comment.