Permalink
Browse files

niecza fudge

  • Loading branch information...
1 parent 2c74a24 commit 59f4e89439a9e787bc649d8aaa1e357cfc652ef0 @coke coke committed Dec 5, 2012
Showing with 5 additions and 0 deletions.
  1. +1 −0 S04-phasers/check.t
  2. +4 −0 S06-advanced/callframe.t
View
@@ -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';
View
@@ -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();

0 comments on commit 59f4e89

Please sign in to comment.