Skip to content

Commit

Permalink
rakudo fudging
Browse files Browse the repository at this point in the history
  • Loading branch information
coke committed Oct 8, 2011
1 parent cbb00ca commit efe2b30
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions S06-traits/is-readonly.t
Expand Up @@ -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'";
Expand All @@ -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 },
Expand Down

0 comments on commit efe2b30

Please sign in to comment.