Fix fixable test because of spec change 24fb00c9f0

S02-types/bag.t

@@ -212,7 +212,7 @@ sub showkv($x) {
     # .list is just the keys, as per TimToady: 
     # http://irclog.perlgeek.de/perl6/2012-02-07#i_5112706
     isa_ok $b.list.elems, 3, ".list returns 3 things";
-    is $b.list.grep(Str).elems, 3, "... all of which are Str";
+    is $b.list.grep(Enum).elems, 3, "... all of which are Enums";
 
     isa_ok $b.pairs.elems, 3, ".pairs returns 3 things";
     is $b.pairs.grep(Enum).elems, 3, "... all of which are Enums";
@@ -390,7 +390,7 @@ sub showkv($x) {
     is +$b1, 8, "Three elements";
     is $b1<c>, 3, "One of them is 'c'";
     is $b1<d>, 4, "One of them is 'd'";
-    my $inner-bag = $b1.list.first(Bag);
+    my $inner-bag = $b1.keys.first(Bag);
     #?niecza 2 todo 'Bag in Bag does not work correctly yet'
     isa_ok $inner-bag, Bag, "One of the bag's elements is indeed a bag!";
     is showkv($inner-bag), "a:1 b:1 c:1", "With the proper elements";
@@ -400,7 +400,7 @@ sub showkv($x) {
     is +$b1, 3, "Three elements";
     is $b1<c>, 1, "One of them is 'c'";
     is $b1<d>, 1, "One of them is 'd'";
-    $inner-bag = $b1.list.first(Bag);
+    $inner-bag = $b1.keys.first(Bag);
     #?niecza 2 todo 'Bag in Bag does not work correctly yet'
     isa_ok $inner-bag, Bag, "One of the bag's elements is indeed a bag!";
     is showkv($inner-bag), "a:1 b:1 c:1", "With the proper elements";

S02-types/baghash.t

@@ -197,7 +197,7 @@ sub showkv($x) {
     # .list is just the keys, as per TimToady: 
     # http://irclog.perlgeek.de/perl6/2012-02-07#i_5112706
     isa_ok $b.list.elems, 3, ".list returns 3 things";
-    is $b.list.grep(Str).elems, 3, "... all of which are Str";
+    is $b.list.grep(Pair).elems, 3, "... all of which are Pairs";
 
     isa_ok $b.pairs.elems, 3, ".pairs returns 3 things";
     is $b.pairs.grep(Pair).elems, 3, "... all of which are Pairs";

S02-types/mix.t

@@ -213,7 +213,7 @@ sub showkv($x) {
     # .list is just the keys, as per TimToady: 
     # http://irclog.perlgeek.de/perl6/2012-02-07#i_5112706
     isa_ok $m.list.elems, 3, ".list returns 3 things";
-    is $m.list.grep(Str).elems, 3, "... all of which are Str";
+    is $m.list.grep(Enum).elems, 3, "... all of which are Enums";
 
     isa_ok $m.pairs.elems, 3, ".pairs returns 3 things";
     is $m.pairs.grep(Enum).elems, 3, "... all of which are Enums";
@@ -345,7 +345,7 @@ sub showkv($x) {
     is +$m1, 8, "Three elements";
     is $m1<c>, 3, "One of them is 'c'";
     is $m1<d>, 4, "One of them is 'd'";
-    my $inner-mix = $m1.list.first(Mix);
+    my $inner-mix = $m1.keys.first(Mix);
     #?niecza 2 todo 'Mix in Mix does not work correctly yet'
     isa_ok $inner-mix, Mix, "One of the mix's elements is indeed a mix!";
     is showkv($inner-mix), "a:1 b:1 c:1", "With the proper elements";
@@ -355,7 +355,7 @@ sub showkv($x) {
     is +$m1, 3, "Three elements";
     is $m1<c>, 1, "One of them is 'c'";
     is $m1<d>, 1, "One of them is 'd'";
-    $inner-mix = $m1.list.first(Mix);
+    $inner-mix = $m1.keys.first(Mix);
     #?niecza 2 todo 'Mix in Mix does not work correctly yet'
     isa_ok $inner-mix, Mix, "One of the mix's elements is indeed a mix!";
     is showkv($inner-mix), "a:1 b:1 c:1", "With the proper elements";

S02-types/mixhash.t

@@ -201,7 +201,7 @@ sub showkv($x) {
     # .list is just the keys, as per TimToady: 
     # http://irclog.perlgeek.de/perl6/2012-02-07#i_5112706
     isa_ok $m.list.elems, 3, ".list returns 3 things";
-    is $m.list.grep(Str).elems, 3, "... all of which are Str";
+    is $m.list.grep(Pair).elems, 3, "... all of which are Pairs";
 
     isa_ok $m.pairs.elems, 3, ".pairs returns 3 things";
     is $m.pairs.grep(Pair).elems, 3, "... all of which are Pairs";