Permalink
Browse files

prefix ?^

  • Loading branch information...
1 parent 5d0290d commit 1fa68840ddb6babacbe05911db33cb664fbf0541 @moritz moritz committed Apr 2, 2012
Showing with 4 additions and 1 deletion.
  1. +4 −1 S03-operators/boolean-bitwise.t
@@ -7,7 +7,7 @@ use Test;
Tests for Synopsis 3
=end kwid
-plan 43;
+plan 45;
{ # L<S03/Changes to Perl 5 operators/ "?| is a logical OR">
# work with pure Bool's
@@ -99,3 +99,6 @@ plan 43;
#?pugs skip 'No compatible multi variant found: "&infix:?^"'
isa_ok infix:<?^>(), Bool, '?^ with no arguments yields a Bool';
}
+
+ok (?^5) === False, 'prefix ?^ (+)';
+ok (?^0) === True, 'prefix ?^ (-)';

0 comments on commit 1fa6884

Please sign in to comment.