Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fudge bool.t for rakudo
  • Loading branch information
moritz committed Jul 7, 2011
1 parent b9895db commit c221290
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions S02-builtin_data_types/bool.t
Expand Up @@ -72,19 +72,22 @@ is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');

# RT #65514
#?niecza skip "general but"
#?rakudo skip 'but'
{
ok (0 but Bool::True), 'Bool::True works with "but"';
is (0 but Bool::True), 0, 'Bool::True works with "but"';
ok !('RT65514' but Bool::False), 'Bool::False works with "but"';
is ('RT65514' but Bool::False), 'RT65514', 'Bool::False works with "but"';
}

#?rakudo skip 'key'
{
is Bool::True.key, 'True', 'Bool::True.key works (is "True")';
is Bool::False.key, 'False', 'Bool::False.key works (is "False")';
}

#?niecza skip ".pick"
#?rakudo skip ".pick"
{
my $x = Bool.pick;
ok ($x === True || $x === False), 'Bool.pick return True or False';
Expand Down

0 comments on commit c221290

Please sign in to comment.