Changeset 22000

Timestamp:

08/21/08 20:46:54 (3 months ago)

Author:

moritz

Message:

[t] more try{...} fixes

Files:

• t/oo/attributes/instance.t (modified) (2 diffs)

t/oo/attributes/instance.t

@@ -73 +73 @@
     my $foo = Foo4.new();
     ok($foo ~~ Foo4, '... our Foo4 instance was created');
-    ok(try{!$foo.can("bar")}, '.. checking autogenerated accessor existence', :todo<feature>);
+    #?pugs eval 'todo'
+    ok(!$foo.can("bar"), '.. checking autogenerated accessor existence', );
 }
 
@@ -80 +81 @@
 {
     my $foo = eval 'Foo4a.new()';
-    ok(try{$foo ~~ Foo4a}, '... our Foo4a instance was created');
-    ok(try{!$foo.can("bar")}, '.. checking autogenerated accessor existence', :todo<feature>);
+    ok(eval('$foo ~~ Foo4a'), '... our Foo4a instance was created');
+    #?pugs eval 'todo'
+    ok(!$foo.can("bar"), '.. checking autogenerated accessor existence');
 }