Browse files

More tests.

  • Loading branch information...
1 parent 25fdf3f commit 7bb5e2de0fec7ecd9c038fe9b0e21789f015c0da @colomon committed Jan 31, 2011
Showing with 6 additions and 4 deletions.
  1. +5 −1 t/01-basic.t
  2. +1 −3 t/05-metaops.t
View
6 t/01-basic.t
@@ -47,7 +47,11 @@ plan *;
{
my @fifty = 1L ... 50L;
- is ~@fifty, ~(1..50), "1L ... 50L works right";
+ is +@fifty.grep(Math::BigInt), 50, "1L ... 50L enerated an array of 50 BigInts...";
+ is ~@fifty, ~(1..50), "... with the correct values.";
+ @fifty = 1L .. 50L;
+ is +@fifty.grep(Math::BigInt), 50, "1L .. 50L enerated an array of 50 BigInts...";
+ is ~@fifty, ~(1..50), "... with the correct values.";
}
done;
View
4 t/05-metaops.t
@@ -21,9 +21,7 @@ plan *;
}
is ~$b, ~$a, 'L* and * both generate is exactly 50!';
- my @fifty = 1L ... 50L;
- is ~@fifty, ~(1..50), "1L ... 50L works right";
- # is ~reducewith(&infix:<*>, @fifty), ~$a, 'and so does reduced * on 1L..50L';
+ is ~reducewith(&infix:<*>, 1L..50L), ~$a, 'and so does reduced * on 1L..50L';
is ~reducewith(&infix:<L*>, 1..50), ~$a, 'and so does reduced L* on 1..50';
# skip "Rakudo does not properly find infix:<L*> for [L*]";

0 comments on commit 7bb5e2d

Please sign in to comment.