Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unfudge some passing bool.t tests.
  • Loading branch information
pmichaud committed Aug 3, 2011
1 parent faf8b59 commit 3915649
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions S02-builtin_data_types/bool.t
Expand Up @@ -44,7 +44,6 @@ ok(!Bool::False, 'False works');
# tests Bool stringification - interaction with ~
isa_ok(~Bool::True, Str);
isa_ok(~Bool::False, Str);
#?rakudo 4 todo 'using older spec'
is(~Bool::True, 'True', 'Bool stringification (True)');
is(~Bool::False, 'False', 'Bool stringification (False)');
is Bool::True.Str, 'True', 'True.Str';
Expand Down Expand Up @@ -83,14 +82,12 @@ is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
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 3915649

Please sign in to comment.