More tests.

colomon · Jan 31, 2011 · 7bb5e2d · 7bb5e2d
1 parent 25fdf3f
commit 7bb5e2d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/t/01-basic.t b/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;
diff --git a/t/05-metaops.t b/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*]";