Update to compare same type.

Raku · Aug 13, 2015 · a90201d · a90201d
1 parent f7e41c5
commit a90201d
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/S32-list/combinations.t b/S32-list/combinations.t
@@ -4,13 +4,13 @@ plan 8;
 
 # L<S32::Containers/List/=item combinations>
 
-is (1, 2, 3).combinations(1).perl, ((1,), (2,), (3,)).perl, "single-item combinations";
-is (1, 2, 3).combinations(2).perl, ((1, 2), (1, 3), (2, 3)).perl, "two item combinations";
-is (1, 2, 3).combinations(3).perl, ((1,2,3),).perl, "three items of a three-item list";
+is (1, 2, 3).combinations(1).list.perl, ((1,), (2,), (3,)).perl, "single-item combinations";
+is (1, 2, 3).combinations(2).list.perl, ((1, 2), (1, 3), (2, 3)).perl, "two item combinations";
+is (1, 2, 3).combinations(3).list.perl, ((1,2,3),).perl, "three items of a three-item list";
 
-is (1, 2, 3).combinations(1..2).perl, ((1,), (2,), (3,), (1, 2), (1, 3), (2, 3)).perl, "1..2 items";
-is (1, 2, 3).combinations(0..3).perl, ((), (1,), (2,), (3,), (1, 2), (1, 3), (2, 3), (1, 2, 3)).perl, "0..3 items";
-is (1, 2, 3).combinations(2..3).perl, ((1, 2), (1, 3), (2, 3), (1, 2, 3)).perl, "2..3 items";
-is (1, 2, 3).combinations.perl, ((), (1,), (2,), (3,), (1, 2), (1, 3), (2, 3), (1, 2, 3)).perl, 'defaults to "powerset"';
+is (1, 2, 3).combinations(1..2).list.perl, ((1,), (2,), (3,), (1, 2), (1, 3), (2, 3)).perl, "1..2 items";
+is (1, 2, 3).combinations(0..3).list.perl, ((), (1,), (2,), (3,), (1, 2), (1, 3), (2, 3), (1, 2, 3)).perl, "0..3 items";
+is (1, 2, 3).combinations(2..3).list.perl, ((1, 2), (1, 3), (2, 3), (1, 2, 3)).perl, "2..3 items";
+is (1, 2, 3).combinations.list.perl, ((), (1,), (2,), (3,), (1, 2), (1, 3), (2, 3), (1, 2, 3)).perl, 'defaults to "powerset"';
 
-is combinations(3,2).perl, ((0, 1), (0, 2), (1, 2)).perl, "combinations function";
+is combinations(3,2).list.perl, ((0, 1), (0, 2), (1, 2)).perl, "combinations function";
diff --git a/S32-list/permutations.t b/S32-list/permutations.t
@@ -4,5 +4,5 @@ plan 2;
 
 # L<S32::Containers/List/=item permutations>
 
-is (1, 2, 3).permutations.perl, ((1, 2, 3), (1, 3, 2), (2, 1, 3), (2, 3, 1), (3, 1, 2), (3, 2, 1)).perl, "permutations method";
-is permutations(3).perl, ((0, 1, 2), (0, 2, 1), (1, 0, 2), (1, 2, 0), (2, 0, 1), (2, 1, 0)).perl, "permutations function";
+is (1, 2, 3).permutations.list.perl, ((1, 2, 3), (1, 3, 2), (2, 1, 3), (2, 3, 1), (3, 1, 2), (3, 2, 1)).perl, "permutations method";
+is permutations(3).list.perl, ((0, 1, 2), (0, 2, 1), (1, 0, 2), (1, 2, 0), (2, 0, 1), (2, 1, 0)).perl, "permutations function";