untested implemented of eval_lives_ok

perl6 · Feb 26, 2012 · 76de685 · 76de685
1 parent abaccdf
commit 76de685
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Pugs/ext/Test/lib/Test.pm b/Pugs/ext/Test/lib/Test.pm
@@ -216,6 +216,16 @@ sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export
     }
 }
 
+sub eval_lives_ok (Str $code, Str $desc = '' :$todo, :$depends) returns Bool is export {
+    eval $code;
+    if ($!) {
+        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
+    }
+    else {
+        &Test::ok.nextwith(1, $desc, :$todo, :$depends);
+    }
+}
+
 sub done_testing() is export {
     die "done_testing() has been renamed to done(), please change your test code";
 }