remove eval_dies_with_error

sorear · Jun 2, 2012 · 014fec3 · 014fec3
1 parent 2a30970
commit 014fec3
Showing 1 changed file with 0 additions and 10 deletions.
diff --git a/lib/Test.pm6 b/lib/Test.pm6
@@ -143,16 +143,6 @@ sub eval_lives_ok($code,$why?) is export {
 sub eval_dies_ok($code,$why?) is export {
     $*TEST-BUILDER.ok(no-control({ eval $code }) eq "die", $why);
 }
-sub eval_dies_with_error($code, $error_pattern, $why?) is export {
-    my $died_with_error;
-    try {
-        CATCH {
-            $died_with_error = "$_" ~~ $error_pattern;
-        }
-        eval $code;
-    }
-    $*TEST-BUILDER.ok($died_with_error, $why);
-}
 sub eval_succeeds_ok($code,$why?,:$ignore = ()) is export {
     $*TEST-BUILDER.ok(?(no-control({ eval $code }) eq any("", @$ignore)), $why);
 }