Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add a variant of skip() to Test.pm to overcome RT #85472
Error message taken from Perl 5's Test::More
  • Loading branch information
Tadeusz Sośnierz committed Mar 5, 2011
1 parent 4138622 commit 3abc9c8
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions Test.pm
Expand Up @@ -117,6 +117,10 @@ multi sub skip($reason, Int $count) is export {
my $i = 1;
while $i <= $count { proclaim(1, "# SKIP " ~ $reason); $i = $i + 1; }
}
# needed because of RT #85472
multi sub skip(Int $count, $reason) is export {
die "skip() was passed a non-numeric number of tests. Did you get the arguments backwards?"
}

multi sub skip_rest() is export {
skip('<unknown>', $num_of_tests_planned - $num_of_tests_run);
Expand Down

0 comments on commit 3abc9c8

Please sign in to comment.