Changeset 21997

Timestamp:

08/21/08 20:36:21 (3 months ago)

Author:

moritz

Message:

[t] more rewrite of try { ... }; ok($!) to dies_ok

Files:

• t/blocks/sub_ref.t (modified) (1 diff)

t/blocks/sub_ref.t

@@ -69 +69 @@
     is $foo.(42),      142,    "calling an anonymous sub with a positional param";
     is $foo.(x => 42), 142,    "calling an anonymous sub with a positional param addressed by name";
-    try{ $foo.() };
-    ok($!, "calling an anonymous sub expecting a param without a param dies");
-    try{ $foo.(42, 5) };
-    ok($!, "calling an anonymous sub expecting one param with two params dies");
+    dies_ok { $foo.() }, 
+        "calling an anonymous sub expecting a param without a param dies";
+    dies_ok { $foo.(42, 5) },
+        "calling an anonymous sub expecting one param with two params dies";
 }