Merge pull request #1664 from rakudo/fails-like

Implement fails-like routine in Test.pm6
rakudo · Mar 28, 2018 · 82a0e70 · 82a0e70
2 parents 68a576e + 4abfd4c
commit 82a0e70
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/lib/Test.pm6 b/lib/Test.pm6
@@ -628,6 +628,25 @@ sub throws-like($code, $ex_type, $reason?, *%matcher) is export {
     }, $reason // "did we throws-like $ex_type.^name()?";
 }
 
+sub fails-like (
+    \test where Callable:D|Str:D, $ex-type, $reason?, *%matcher
+) is export {
+    subtest sub {
+        plan 2;
+        CATCH { default {
+            with "expected code to fail but it threw {.^name} instead" {
+                .&flunk;
+                .&skip;
+                return False;
+            }
+        }}
+        my $res = test ~~ Callable ?? test.() !! test.EVAL;
+        isa-ok $res, Failure, 'code returned a Failure';
+        throws-like { $res.sink }, $ex-type,
+            'Failure threw when sunk', |%matcher,
+    }, $reason // "did we fails-like $ex-type.^name()?"
+}
+
 sub _is_deeply(Mu $got, Mu $expected) {
     $got eqv $expected;
 }

diff --git a/t/spectest.data b/t/spectest.data
@@ -919,6 +919,7 @@ S24-testing/11-plan-skip-all-subtests.t
 S24-testing/12-subtest-todo.t
 S24-testing/13-cmp-ok.t
 S24-testing/14-like-unlike.t
+S24-testing/fails-like.t
 S24-testing/line-numbers.t
 S26-documentation/01-delimited.t
 S26-documentation/02-paragraph.t