[Test.pm] DRY in skip_rest

rakudo · Mar 5, 2011 · c463f55 · c463f55
1 parent 12dfa0d
commit c463f55
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/Test.pm b/Test.pm
@@ -122,11 +122,7 @@ 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);
-}
-
-multi sub skip_rest($reason) is export {
+sub skip_rest($reason = '<unknown>') is export {
     skip($reason, $num_of_tests_planned - $num_of_tests_run);
 }