Permalink
Browse files

Rakudo unfudges.

  • Loading branch information...
1 parent aeb200d commit 9e30ec8b23e2006e0256995e05ebe9317c223985 @jnthn jnthn committed Nov 7, 2012
Showing with 2 additions and 5 deletions.
  1. +0 −1 S02-types/bag.t
  2. +1 −1 S02-types/keybag.t
  3. +1 −1 S02-types/keyset.t
  4. +0 −1 S32-hash/delete_adverb.t
  5. +0 −1 S32-hash/exists.t
View
@@ -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';
View
@@ -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';
}
View
@@ -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';
}
View
@@ -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>;
View
@@ -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)";
};

0 comments on commit 9e30ec8

Please sign in to comment.