Changeset 22898 for t

Timestamp:

11/06/08 12:31:35 (2 months ago)

Author:

jnthn

Message:

[spectest] Correct a test that got indirect method invocation syntax wrong, and un-todo it for Rakudo. Also un-todo a test that pended on object stringification.

Files:

• t/spec/S12-class/inheritance.t (modified) (3 diffs)

t/spec/S12-class/inheritance.t

@@ -38 +38 @@
 is($foo_bar.fud(), 'Foo::Bar::fud', '... sanity check on uninherited method');
 
-#?rakudo skip 'stringification of objects'
+
 is($foo_bar.getme, $foo_bar, 'can call inherited methods');
 is($foo_bar.getme.baz, "Foo::Bar::baz", 'chained method dispatch on altered method');
@@ -73 +73 @@
 ok  Foo::Bar.HOW.does(Foo::BAR, ::CLASS),  "subclass.HOW.does(CLASS) is true";
 
-
-#?rakudo skip 'indirect method call syntax'
 {
     my $test = '$obj.$meth is canonical (audreyt says)';
@@ -81 +79 @@
     }
     class Child is Abc { }
-    is( eval('my $meth = "foo"; my $obj= Child.new; $obj.$meth()'), 'found', $test);
+    is( eval('my $meth = "foo"; my $obj= Child.new; $obj."$meth"()'), 'found', $test);
 }