Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Unfudging/refudging for <-> fix.

  • Loading branch information...
commit 26d9454e25a3a6ed137c5ebd74474e3f2d79b4ff 1 parent 51fc070
Jonathan Worthington jnthn authored
4 S04-blocks-and-statements/pointy-rw.t
View
@@ -20,17 +20,17 @@ plan 10;
for %h.values -> $v is rw { $v += 1 }
}, 'aliases returned by %hash.values should be rw (1)';
- #?rakudo skip 'rw Hash.values'
+ #?rakudo todo 'rw Hash.values'
is %h<3>, 5, 'aliases returned by %hash.values should be rw (2)';
}
-#?rakudo skip '<-> (rw lanbmda) parsing'
{
my %h = 1..4;
lives_ok {
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)';
}
5 S04-statements/for.t
View
@@ -164,7 +164,6 @@ my @elems = <a b c d e>;
}
# "for @a -> $var" is ro by default.
-#?rakudo skip "<-> is confusing the parser, I think"
#?pugs skip 'parsefail'
{
my @a = <1 2 3 4>;
@@ -216,7 +215,7 @@ my @elems = <a b c d e>;
is(@array_kv, @kv, 'for @array.kv -> $key, $val is rw { $val++ }');
}
-#?rakudo skip "is rw NYI"
+#?rakudo todo "is rw NYI"
#?pugs skip "Can't modify const item"
{
my %hash_v = ( a => 1, b => 2, c => 3 );
@@ -225,7 +224,7 @@ my @elems = <a b c d e>;
is(%hash_v, %v, 'for %hash.values -> $val is rw { $val++ }');
}
-#?rakudo skip "is rw NYI"
+#?rakudo todo "is rw NYI"
#?pugs todo
{
my %hash_kv = ( a => 1, b => 2, c => 3 );
2  S06-traits/misc.t
View
@@ -73,13 +73,13 @@ lives_ok { boom(42) }, "can modify a copy";
# with <-> we should still obey readonly traits
-#?rakudo skip '<-> (rw lamda)'
{
my $anon1 = <-> $a is readonly, $b { $b++ };
my $anon2 = <-> $a is readonly, $b { $a++ };
my $x = 1;
$anon1($x, $x);
is($x, 2, '<-> does not override explicit traints (sanity)');
+ #?rakudo 2 todo 'is readonly does not override'
dies_ok({ $anon2($x, $x) }, '<-> does not override explicit traints');
is($x, 2, '<-> does not override explicit traints (sanity)');
}
Please sign in to comment.
Something went wrong with that request. Please try again.