Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Rakudo unfudges.
  • Loading branch information
jnthn committed Nov 7, 2012
1 parent aeb200d commit 9e30ec8
Show file tree
Hide file tree
Showing 5 changed files with 2 additions and 5 deletions.
1 change: 0 additions & 1 deletion S02-types/bag.t
Expand Up @@ -43,7 +43,6 @@ sub showkv($x) {
is +$b, 8, '+$bag gives sum of values';
}

#?rakudo skip ':exists and :delete NYI'
{
my $s = bag <a a b foo>;
is $s<a>:exists, True, ':exists with existing element';
Expand Down
2 changes: 1 addition & 1 deletion S02-types/keybag.t
Expand Up @@ -65,11 +65,11 @@ sub showkv($x) {
nok $b.exists("farve"), "... and everything is still okay";
}

#?rakudo skip ':exists and :delete NYI'
{
my $s = KeyBag.new(<a a b foo>);
is $s<a>:exists, True, ':exists with existing element';
is $s<santa>:exists, False, ':exists with nonexistent element';
#?rakudo 2 skip ':delete NYI'
is $s<a>:delete, 2, ':delete works on KeyBag';
is showkv($s), 'b:1 foo:1', '...and actually deletes';
}
Expand Down
2 changes: 1 addition & 1 deletion S02-types/keyset.t
Expand Up @@ -67,11 +67,11 @@ sub showset($s) { $s.keys.sort.join(' ') }
is showset($s), 'a foo', '... but only if they were there to start with';
}

#?rakudo skip ':exists and :delete NYI'
{
my $s = KeySet.new(<a b foo>);
is $s<a>:exists, True, ':exists with existing element';
is $s<santa>:exists, False, ':exists with nonexistent element';
#?rakudo 2 skip ':delete NYI'
is $s<a>:delete, True, ':delete returns current value on set';
is showset($s), 'b foo', '...and actually deletes';
}
Expand Down
1 change: 0 additions & 1 deletion S32-hash/delete_adverb.t
Expand Up @@ -18,7 +18,6 @@ sub gen_hash {
is %h1<b>:delete, $b, "Test for delete single key.";
}

#?rakudo todo 'Slices'
{
my %h1 = gen_hash;
my @cde = %h1<c d e>;
Expand Down
1 change: 0 additions & 1 deletion S32-hash/exists.t
Expand Up @@ -35,7 +35,6 @@ sub gen_hash {
#?niecza skip 'Invocant handling is NYI'
is (exists %h1: 'a'), True, "Test existence for single key. (Indirect notation)";
is (%h1.exists('a')), True, "Test existence for single key. (method call)";
#?rakudo 2 skip 'NYI as far as I know'
is (%h1{'a'}:exists), True, "Test existence for single key. (adverb)";
is (%h1<a>:exists), True, "Test existence for single key. (adverb 2)";
};
Expand Down

0 comments on commit 9e30ec8

Please sign in to comment.