Permalink
Browse files

rakudo fudging

  • Loading branch information...
1 parent cbb00ca commit efe2b307dcda1352647de78e1ddf23d4c2e12f92 @coke coke committed Oct 8, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 S06-traits/is-readonly.t
View
3 S06-traits/is-readonly.t
@@ -20,9 +20,11 @@ use Test;
is $a, 42, "binding the variable now works";
#?pugs todo 'feature'
+ #?rakudo todo 'todo'
dies_ok { $a := 17 }, "but binding it again does not work";
}
+#?rakudo skip 'segfault'
{
my $a is readonly;
ok !(try { VAR($a).defined }), ".VAR returns undefined on an uninitialized var declared with 'is readonly'";
@@ -43,6 +45,7 @@ use Test;
{
my ($rt65900 is readonly) = 5;
is $rt65900, 5, 'my ($x is readonly) can take assignment';
+ #?rakudo 2 todo 'todo'
dies_ok { $rt65900 = 'ro' }, 'dies on assignment to readonly variable';
dies_ok { (my $rt65900 is readonly) = 5 },

0 comments on commit efe2b30

Please sign in to comment.