Changeset 22702 for t

Timestamp:

10/22/08 23:07:15 (3 months ago)

Author:

moritz

Message:

[t/spec] some fudging of instance.t, and small corrections

Files:

• t/spec/S12-methods/instance.t (modified) (5 diffs)

t/spec/S12-methods/instance.t

@@ -16 +16 @@
   method noargs () { 42 }
   method nobrackets { 'mice' }
-  method callsmethod1() { .noargs(); }
-  method callsmethod2 { .noargs(); }
+  method callsmethod1() { self.noargs(); }
+  method callsmethod2 { self.noargs(); }
 }
 
@@ -24 +24 @@
 
 my $val;
-lives_ok {
-    $val = doit $foo: 1,2,3;
-}, '... indirect method invocation works';
+#?rakudo skip 'parse error'
+lives_ok { $val = doit $foo: 1,2,3; }, '... indirect method invocation works';
+#?rakudo skip 'test dependency'
 is($val, 6, '... got the right value for indirect method invocation');
 
@@ -34 +34 @@
 {
     my $val;
-    lives_ok {
-        eval '$val = $foo.noargs()';
-        die $! if $!;
-    }, "... <space> + parentheses after method";
+    lives_ok { $val = $foo.noargs(); }, "... <space> + parentheses after method";
     is($val, 42, '... we got the value correctly');
 }
@@ -49 +46 @@
 }
 
+#?rakudo skip 'parse error (or test error?)'
 {
     my $val;
@@ -83 +81 @@
     }
     dies_ok( { Zoo.new.a }, "can't call current object methods on lexical data structures");
+    #?rakudo todo 'method should not be usable as sub'
     dies_ok( { Zoo.new.c }, "meth(%h) is not a valid method call syntax");
 }