Unfudge TODO's passing after jnthn's work of today

S04-blocks-and-statements/pointy-rw.t

@@ -20,7 +20,6 @@ plan 10;
         for %h.values -> $v is rw { $v += 1 }
     }, 'aliases returned by %hash.values should be rw (1)';
 
-    #?rakudo todo 'rw Hash.values'
     is %h<3>, 5, 'aliases returned by %hash.values should be rw (2)';
 }
 
@@ -30,7 +29,6 @@ plan 10;
         for %h.values <-> $v { $v += 1 }
     }, 'aliases returned by %hash.values should be rw (<->) (1)';
 
-    #?rakudo todo 'rw Hash.values'
     is %h<3>, 5, 'aliases returned by %hash.values should be rw (<->) (2)';
 }
 

S04-statements/for.t

@@ -215,7 +215,6 @@ my @elems = <a b c d e>;
     is(@array_kv, @kv, 'for @array.kv -> $key, $val is rw { $val++ }');
 }
 
-#?rakudo todo "is rw NYI"
 #?pugs skip "Can't modify const item"
 {
     my %hash_v = ( a => 1, b => 2, c => 3 );
@@ -224,7 +223,6 @@ my @elems = <a b c d e>;
     is(%hash_v, %v, 'for %hash.values -> $val is rw { $val++ }');
 }
 
-#?rakudo todo "is rw NYI"
 #?pugs todo
 {
     my %hash_kv = ( a => 1, b => 2, c => 3 );

S32-hash/kv.t

@@ -34,15 +34,13 @@ Basic C<kv> tests, see S32::Containers.
     is(~@kv, "a 1", '$pair.kv inner list matched expectation');
 }
 
-#?rakudo todo 'make kv() return a flat list, or fix test (or .sort)'
 {
     my $sub  = sub (Hash $hash) { $hash.kv };
     my %hash = (a => "x", b => "y");
     is ~kv(%hash).sort,   "a b x y", ".kv works with normal hashes (sanity check)";
     is ~$sub(%hash).sort, "a b x y", ".kv works with constant hash references";
 }
 
-#?rakudo todo 'make kv() return a flat list, or fix test (or .sort)'
 {
     # "%$hash" is not idiomatic Perl, but should work nevertheless.
     my $sub  = sub (Hash $hash) { %$hash.kv };
@@ -111,7 +109,6 @@ for %hash.kv -> $key, $value {
     } }, 'aliases returned by %hash.kv should be rw (1)';
 
     #?pugs todo 'feature'
-    #?rakudo todo 'rw-kv'
     is %hash<b>, 102, 'aliases returned by %hash.kv should be rw (2)';
 }