Changeset 22471 for t

Timestamp:

10/01/08 09:53:20 (2 months ago)

Author:

azawawi

Message:

[t/spec] Fudged S29-context/eval.t for rakudo

Files:

• t/spec/S29-context/eval.t (modified) (2 diffs)

t/spec/S29-context/eval.t

@@ -11 +11 @@
 =end pod
 
+#?rakudo skip "Null PMC access in find_method()"
+
+#?rakudo emit =begin unimpl
+
 # eval should evaluate the code in the lexical scope of eval's caller
 sub make_eval_closure { my $a = 5; sub ($s) { eval $s } };
 is(make_eval_closure()('$a'), 5, 'eval runs code in the proper lexical scope');
 
+#?rakudo emit =end unimpl
+
 is(eval('5'), 5, 'simple eval works and returns the value');
 my $foo = 1234;
+#?rakudo skip "unimpl Null PMC access in find_method"
 is(eval('$foo'), $foo, 'simple eval using variable defined outside');
 
 # traps die?
+#?rakudo skip "unimpl Null PMC access in type()"
 ok(!eval('die; 1'), "eval can trap die");
 
 ok(!eval('my @a = (1); @a<0>'), "eval returns undef on syntax error");
 
+#?rakudo skip "unimpl Null PMC access in type()"
 ok(!eval('use Poison; 1'), "eval can trap a fatal use statement");
 
@@ -32 +41 @@
 
 # L<S04/Exception handlers/Perl 6's eval function only evaluates strings, not blocks.>
+#?rakudo skip "unimpl Null PMC access in find_method"
 dies_ok({eval {42}}, 'block eval is gone');