Guard against bad skip() arguments, swapped (15ed07b0) or extra.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 21 Sep 2014 00:41:31 +0000 (20:41 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 21 Sep 2014 00:41:31 +0000 (20:41 -0400)
t/test.pl

index d9a3220..0cfae31 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -478,6 +478,17 @@ sub next_test {
 sub skip {
     my $why = shift;
     my $n    = @_ ? shift : 1;
+    my $bad_swap;
+    {
+      local $^W = 0;
+      $bad_swap = $why > 0 && $n == 0;
+    }
+    if ($bad_swap) {
+      die qq[$0: expected skip(why, count), got skip($why, "$n")\n];
+    }
+    if (@_) {
+      die qq[$0: expected skip(why, count), got skip($why, "$n", @_)\n];
+    }
     for (1..$n) {
         _print "ok $test # skip $why\n";
         $test = $test + 1;