Add tests for Bool Matchers

Author: lizmat

S32-list/first-index.t

@@ -3,7 +3,7 @@ use Test;
 
 # L<S32::Containers/"List"/"=item first-index">
 
-plan 21;
+plan 25;
 
 my @list = (1 ... 10);
 
@@ -72,4 +72,12 @@ my @list = (1 ... 10);
         1, '.first-index also takes a junction as matcher (sub form)';
 }
 
+# Bool handling
+{
+    throws_like { first-index $_ == 1, 1,2,3 }, X::Match::Bool;
+    throws_like { (1,2,3).first-index: $_== 1 }, X::Match::Bool;
+    is first-index( Bool,True,False,Int ), 0, 'can we match on Bool as type';
+    is (True,False,Int).first-index(Bool), 0, 'can we match on Bool as type';
+}
+
 #vim: ft=perl6

S32-list/first.t

@@ -3,7 +3,7 @@ use Test;
 
 # L<S32::Containers/"List"/"=item first">
 
-plan 23;
+plan 27;
 
 my @list = (1 ... 10);
 
@@ -79,4 +79,12 @@ my @list = (1 ... 10);
     isa_ok @list.first(* < 0 ), Nil, ".first returns Nil when no values match"
 }
 
+# Bool handling
+{
+    throws_like { first $_ == 1, 1,2,3 }, X::Match::Bool;
+    throws_like { (1,2,3).first: $_== 1 }, X::Match::Bool;
+    is first( Bool,True,False,Int ), True, 'can we match on Bool as type';
+    is (True,False,Int).first(Bool), True, 'can we match on Bool as type';
+}
+
 #vim: ft=perl6

S32-list/grep-index.t

@@ -3,7 +3,7 @@ use Test;
 
 # L<S32::Containers/"List"/"=item grep-index">
 
-plan 35;
+plan 39;
 
 my @list = (1 .. 10);
 
@@ -76,15 +76,15 @@ is_deeply @list.grep-index( { ($_ % 2) } ), (0,2,4,6,8).list.item,
     'mutating $_ in grep-index works (2)';
 }
 
-# grep with last, next etc.
+# grep-index with last, next etc.
 {
     is_deeply (1..16).grep-index({last if $_ % 5 == 0; $_ % 2 == 0}),
        (1,3).list.item, 'last works in grep-index';
     is_deeply (1..12).grep-index({next if $_ % 5 == 0; $_ % 2 == 0}),
        (1,3,5,7,11).list.item, 'next works in grep-index';
 }
 
-# since the test argument to .grep is a Matcher, we can also
+# since the test argument to .grep-index is a Matcher, we can also
 # check type constraints:
 {
     is_deeply (2, [], 4, [], 5).grep-index(Int),
@@ -101,4 +101,12 @@ is_deeply @list.grep-index( { ($_ % 2) } ), (0,2,4,6,8).list.item,
 
 }
 
+# Bool handling
+{
+    throws_like { grep-index $_ == 1, 1,2,3 }, X::Match::Bool;
+    throws_like { (1,2,3).grep-index: $_== 1 }, X::Match::Bool;
+    is grep-index( Bool,True,False,Int ), (0,1), 'can we match on Bool as type';
+    is (True,False,Int).grep-index(Bool), (0,1), 'can we match on Bool as type';
+}
+
 # vim: ft=perl6

S32-list/grep.t

@@ -9,7 +9,7 @@ built-in grep tests
 
 =end pod
 
-plan 38;
+plan 42;
 
 my @list = (1 .. 10);
 
@@ -129,6 +129,12 @@ my @list = (1 .. 10);
     is ~(1...100).grep(* %% 2).grep(* %% 3), ~(6, 12 ... 96), "chained greps work";
 }
 
-done;
+# Bool handling
+{
+    throws_like { grep $_ == 1, 1,2,3 }, X::Match::Bool;
+    throws_like { (1,2,3).grep: $_== 1 }, X::Match::Bool;
+    is grep( Bool,True,False,Int ), (True,False), 'can we match on Bool as type';
+    is (True,False,Int).grep(Bool), (True,False), 'can we match on Bool as type';
+}
 
 # vim: ft=perl6

S32-list/last-index.t

@@ -3,7 +3,7 @@ use Test;
 
 # L<S32::Containers/"List"/"=item last-index">
 
-plan 21;
+plan 25;
 
 my @list = (1 ... 10);
 
@@ -72,4 +72,12 @@ my @list = (1 ... 10);
         3, '.last-index also takes a junction as matcher (sub form)';
 }
 
+# Bool handling
+{
+    throws_like { last-index $_ == 1, 1,2,3 }, X::Match::Bool;
+    throws_like { (1,2,3).last-index: $_== 1 }, X::Match::Bool;
+    is last-index( Bool,True,False,Int ), 1, 'can we match on Bool as type';
+    is (True,False,Int).last-index(Bool), 1, 'can we match on Bool as type';
+}
+
 #vim: ft=perl6