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);
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);