[Test.pm] replace complicated, non-working multis with a short, simpl…

…e, do-it-all only sub
perl6 · Feb 23, 2012 · f3ef7f0 · f3ef7f0
1 parent 47cc4a9
commit f3ef7f0
Showing 1 changed file with 2 additions and 11 deletions.
diff --git a/Pugs/ext/Test/lib/Test.pm b/Pugs/ext/Test/lib/Test.pm
@@ -249,18 +249,9 @@ sub todo (Str $reason = "fix", *%deadline) returns Bool is export {
     return False;
 }
 
-multi sub skip (Str $reason?, :$depends) returns Bool is export {
-    Test::proclaim(1, "", "skip $reason", :$depends);
-}
-
-multi sub skip (Str $reason, Int $count, :$depends) returns Bool is export {
+sub skip (Str $reason = '', Int $count = 1, :$depends) returns Bool is export {
     for (1 .. $count) {
-        # Hack -- PIL2JS doesn't support multisubs correctly yet
-        if $*OS eq "browser" {
-            Test::proclaim(1, "", "skip $reason", :$depends);
-        } else {
-            Test::skip $reason, :$depends;
-        }
+    	Test::proclaim(1, "", "skip $reason", :$depends);
     }
 }