From: Tony Cook <tony@develop=help.com>
Date: Thu, 10 May 2001 01:56:02 +0000 (+0000)
Subject: make filenames match test number
X-Git-Tag: Imager-0.48^2~667
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/095af5b6c841a3e4af767dfc1a435e957c9e17ca

make filenames match test number
---

diff --git a/t/t102png.t b/t/t102png.t
index c1b989aa..5c864af6 100644
--- a/t/t102png.t
+++ b/t/t102png.t
@@ -41,14 +41,14 @@ if (!i_has_format("png")) {
   print "ok 4 # skip no png support\n";
   print "ok 5 # skip no png support\n";
 } else {
-  open(FH,">testout/t12.png") || die "cannot open testout/t12.png for writing\n";
+  open(FH,">testout/t102.png") || die "cannot open testout/t102.png for writing\n";
   binmode(FH);
   i_writepng($img,fileno(FH)) || print "not ";
   close(FH);
 
   print "ok 2\n";
 
-  open(FH,"testout/t12.png") || die "cannot open testout/t12.png\n";
+  open(FH,"testout/t102.png") || die "cannot open testout/t102.png\n";
   binmode(FH);
   $cmpimg=i_readpng(fileno(FH)) || print "not ";
   close(FH);
@@ -58,8 +58,8 @@ if (!i_has_format("png")) {
   print i_img_diff($img, $cmpimg)
     ? "not ok 4 # saved image different\n" : "ok 4\n";
 
-  open FH, "> testout/t12_trans.png"
-    or die "Cannot open testout/t12_trans.png: $!";
+  open FH, "> testout/t102_trans.png"
+    or die "Cannot open testout/t102_trans.png: $!";
   binmode FH;
   if (i_writepng($timg, fileno(FH))) {
     print "ok 5\n";
@@ -69,8 +69,8 @@ if (!i_has_format("png")) {
   }
   close FH;
 
-  open FH,"testout/t12_trans.png" 
-    or die "cannot open testout/t12_trans.png\n";
+  open FH,"testout/t102_trans.png" 
+    or die "cannot open testout/t102_trans.png\n";
   binmode(FH);
   $cmpimg=i_readpng(fileno(FH)) || print "not ";
   close(FH);