fix scoping bug in use-with-class.t, fudge for rakudo

moritz · moritz · commit 86b9677b5e8d · 2011-08-09T07:07:13.000+02:00
diff --git a/S10-packages/use-with-class.t b/S10-packages/use-with-class.t
@@ -11,7 +11,9 @@ plan 8;
 
 use t::spec::packages::UseTest;
 
-eval_lives_ok 'Stupid::Class.new()', 'can instantiate object of "imported" class';
+#?rakudo todo "Could not find symbol 'Stupid::&Class'"
+ok eval('Stupid::Class.new()'), 'can instantiate object of "imported" class';
+diag $! if $!;
 
 {
     my $o = Stupid::Class.new(attrib => 'a');

Original file line number	Diff line number	Diff line change
`@@ -11,7 +11,9 @@ plan 8;`
`11`	`11`
`12`	`12`	`use t::spec::packages::UseTest;`
`13`	`13`
`14`		`-eval_lives_ok 'Stupid::Class.new()', 'can instantiate object of "imported" class';`
	`14`	`+#?rakudo todo "Could not find symbol 'Stupid::&Class'"`
	`15`	`+ok eval('Stupid::Class.new()'), 'can instantiate object of "imported" class';`
	`16`	`+diag $! if $!;`
`15`	`17`
`16`	`18`	`{`
`17`	`19`	`my $o = Stupid::Class.new(attrib => 'a');`