]> git.imager.perl.org - imager.git/commitdiff
skip tests that we've added
authorTony Cook <tony@develop=help.com>
Wed, 16 May 2001 02:07:14 +0000 (02:07 +0000)
committerTony Cook <tony@develop=help.com>
Wed, 16 May 2001 02:07:14 +0000 (02:07 +0000)
t/t102png.t
t/t106tiff.t

index 6fe98d4c9b658a4672159c70da47feeb70f367df..a8a0774a13ca2178ab30f6a742ad0ad2b5cb66be 100644 (file)
@@ -36,10 +36,9 @@ i_box_filled($timg, 0, 0, 20, 20, $green);
 i_box_filled($timg, 2, 2, 18, 18, $trans);
 
 if (!i_has_format("png")) {
-  print "ok 2 # skip no png support\n";
-  print "ok 3 # skip no png support\n";
-  print "ok 4 # skip no png support\n";
-  print "ok 5 # skip no png support\n";
+  for (2..10) {
+    print "ok $_ # skip no png support\n";
+  }
 } else {
   open(FH,">testout/t102.png") || die "cannot open testout/t102.png for writing\n";
   binmode(FH);
index f74c847156ec038d983a3c960b94af88df88b39f..6cb23c42c24f15d1007a1b0de0046e5b9f5efac6 100644 (file)
@@ -20,9 +20,9 @@ i_box_filled($timg, 0, 0, 20, 20, $green);
 i_box_filled($timg, 2, 2, 18, 18, $trans);
 
 if (!i_has_format("tiff")) {
-  print "ok 1 # skip no tiff support\n";
-  print "ok 2 # skip no tiff support\n";
-  print "ok 3 # skip no tiff support\n";
+  for (1..4) {
+    print "ok $_ # skip no tiff support\n";
+  }
 } else {
   open(FH,">testout/t106.tiff") || die "cannot open testout/t10.tiff for writing\n";
   binmode(FH);