Hopefully fix the skip() insanity

rakudo · Mar 5, 2011 · d85450a · d85450a
1 parent c463f55
commit d85450a
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/Test.pm b/Test.pm
@@ -113,14 +113,11 @@ multi sub todo($reason) is export {
 
 multi sub skip()                is export { proclaim(1, "# SKIP"); }
 multi sub skip($reason)         is export { proclaim(1, "# SKIP " ~ $reason); }
-multi sub skip($reason, Int $count) is export {
+multi sub skip($reason, $count) is export {
+    die "skip() was passed a non-numeric number of tests.  Did you get the arguments backwards?" if $count !~~ Numeric;
     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?"
-}
 
 sub skip_rest($reason = '<unknown>') is export {
     skip($reason, $num_of_tests_planned - $num_of_tests_run);