it was meant to be skipn(), and output the skipped numbers correctly

diff --git a/Changes b/Changes
index 7465c08ef08549d500953dbeae4c183fa9584066..5ca171fa2bd416309f89c546bf3056407d8ea4e9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -640,6 +640,10 @@ Revision history for Perl extension Imager.
           it used fork() which caused problems on systems that didn't have
           a real fork().
 
+0.41?
+        - skip() in testtools should be skipn() and it should use the 
+          loop variable for the test number
+
 =================================================================
 
         For latest versions check the Imager-devel pages:

diff --git a/t/testtools.pl b/t/testtools.pl
index 90150776a5c69c91619f4965ed1337a8d8bc81d3..45038889dac6c26222a69f213fac8683dc9e1e18 100644 (file)
--- a/t/testtools.pl
+++ b/t/testtools.pl
@@ -16,12 +16,12 @@ sub test_img {
   $img;
 }
 
-sub skip {
+sub skipn {
   my ($testnum, $count, $why) = @_;
   
   $why = '' unless defined $why;
 
-  print "ok $testnum # skip $why\n" for $testnum ... $testnum+$count-1;
+  print "ok $_ # skip $why\n" for $testnum ... $testnum+$count-1;
 }
 
 1;