Changeset 22701 for t

Timestamp:

10/22/08 22:59:52 (3 months ago)

Author:

moritz

Message:

[t] move instance.t to spec/, some small updates.
Also updated deprecated-syntax.pod

Location:

t

Files:

• deprecated-syntax.pod (modified) (1 diff)
• spec/S12-methods/instance.t (moved) (moved from t/oo/methods/instance.t) (3 diffs)

t/deprecated-syntax.pod

@@ -67 +67 @@
 Some tests rely on C<$?PUGS_BACKEND> and similar variables. Since they are not
 specced, they cause failures on other implementations. Either remove these
-variables alltogether, or at enclose them in C<eval '...'>.
+variables alltogether, or fudge them by prepending C<#?pugs emit> on every
+such line.
 
 =head2 "my" in pointy block signatures

t/spec/S12-methods/instance.t

@@ -44 +44 @@
     my $val;
     lives_ok {
-        #eval '$val = $foo.noargs.()';
-        #die $! if $!;
-        die 'cannot parse "val = $foo.noargs.()"'
+        $val = $foo.noargs.();
     }, "... '.' + parentheses after method", :todo<bug>;
     is($val, 42, '... we got the value correctly', :todo<feature>);
@@ -54 +52 @@
     my $val;
     lives_ok {
-        #eval '$val = $foo.noargs .()';
-        #die $! if $!;
-        die 'cannot parse "$foo.noargs .()"'
+        $val = $foo.noargs .();
     }, "... <space> + '.' + parentheses after method", :todo<bug>;
     is($val, 42, '... we got the value correctly', :todo<feature>);
@@ -86 +82 @@
         method b () { 1 }
     }
-    dies_ok( { Zoo.new.a }, "can't call current object methods on lexical data structures", :todo<bug>);
-    dies_ok( { Zoo.new.c }, "meth(%h) is not a valid method call syntax", :todo<bug>);
+    dies_ok( { Zoo.new.a }, "can't call current object methods on lexical data structures");
+    dies_ok( { Zoo.new.c }, "meth(%h) is not a valid method call syntax");
 }