[coverage] Cover all uncovered operators in Bool.pm

Author: zoffixznet

S02-types/bool.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 56;
+plan 66;
 
 #L<S12/Built-in Enumerations/"Two built-in enumerations are">
 
@@ -111,4 +111,22 @@ is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
     is $b.Int, 1, 'Bool typed scalar coerces to Int';
 }
 
+{ # coverage; 2016-09-25
+    is-deeply     ?Bool, Bool::False, '?Bool:U returns False';
+    is-deeply (so Bool), Bool::False, 'so Bool:U returns False';
+    is infix:<^^>(
+        Any, sub { pass 'sub{} operand of ^^ op gets called'; 42 },
+    ), 42, '^^ operator with sub {} right operand works correctly';
+
+    is infix:<//>(
+        Any, sub { pass 'sub{} operand of // op gets called'; 42 },
+    ), 42, '// operator with sub {} right operand works correctly';
+    is infix:<xor>(
+        Any, sub { pass 'sub{} operand of xor op gets called'; 42 },
+    ), 42, 'xor operator with sub {} right operand works correctly';
+
+    is infix:<and>(42), 42,         'infix:<and> with 1 arg returns the arg';
+    is infix:<and>(  ), Bool::True, 'infix:<and> with no args returns True';
+}
+
 # vim: ft=perl6