Permalink
Browse files

remove eval_dies_with_error

  • Loading branch information...
1 parent 2a30970 commit 014fec34be61d49f8235b0eb1fe668f061bd8e35 @diakopter diakopter committed Jun 2, 2012
Showing with 0 additions and 10 deletions.
  1. +0 −10 lib/Test.pm6
View
10 lib/Test.pm6 100644 → 100755
@@ -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);
}

0 comments on commit 014fec3

Please sign in to comment.