Skip to content

Commit

Permalink
niecza fudge
Browse files Browse the repository at this point in the history
  • Loading branch information
coke committed Dec 5, 2012
1 parent 2c74a24 commit 59f4e89
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 0 deletions.
1 change: 1 addition & 0 deletions S04-phasers/check.t
Expand Up @@ -29,6 +29,7 @@ plan 5;
my $str;
my $handle = { my $retval = CHECK { $str ~= 'C' } };

#?niecza 2 todo
is $handle(), 'C', 'our CHECK {...} block returned the correct var (1)';
is $handle(), 'C', 'our CHECK {...} block returned the correct var (2)';
is $str, 'C', 'our rvalue CHECK {...} block was executed exactly once';
Expand Down
4 changes: 4 additions & 0 deletions S06-advanced/callframe.t
Expand Up @@ -16,19 +16,23 @@ sub f() {
ok callframe().file ~~ /« callframe »/, '.file';

#?rakudo skip '.inline'
#?niecza skip 'Unable to resolve method inline in type CallFrame'
nok callframe().inline, 'explicitly entered block (.inline)';

# Note: According to S02, these should probably fail unless
# $x is marked 'is dynamic'. We allow it for now since there's
# still some uncertainty in the spec in S06, though.
#?niecza skip 'Unable to resolve method my in type CallFrame'
is callframe(1).my.<$x>, 42, 'can access outer lexicals via .my';
#?niecza emit #
callframe(1).my.<$x> = 23;
}

my $x = 42;

f();

#?niecza todo 'needs .my'
is $x, 23, '$x successfully modified';

done();
Expand Down

0 comments on commit 59f4e89

Please sign in to comment.