From: Tony Cook <tony@develop=help.com>
Date: Fri, 13 Dec 2002 00:34:40 +0000 (+0000)
Subject: fixed some minor test code hiccups
X-Git-Tag: Imager-0.48^2~343
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/0cb68c19f91f582441a984b2f4688b0fb6a39ee1

fixed some minor test code hiccups
---

diff --git a/Changes b/Changes
index d447b977..1d46f9e7 100644
--- a/Changes
+++ b/Changes
@@ -689,6 +689,7 @@ Revision history for Perl extension Imager.
           (Ticket #1513)
         - the code to read multiple tiffs didn't handle files with more
           than five images correctly, causing a memory overrun.
+        - fix some minor test code hiccups
 
 =================================================================
 
diff --git a/t/t106tiff.t b/t/t106tiff.t
index a4d0f7c0..f37af154 100644
--- a/t/t106tiff.t
+++ b/t/t106tiff.t
@@ -325,7 +325,7 @@ if (!i_has_format("tiff")) {
   # writing even more images to tiff - we weren't handling more than five
   # correctly on read
   @imgs = map $ooim->copy(), 1..40;
-  my $rc = Imager->write_multi({file=>'testout/t106_multi2.tif'}, @imgs);
+  $rc = Imager->write_multi({file=>'testout/t106_multi2.tif'}, @imgs);
   ok($rc, "writing 40 images to tiff");
   @out = Imager->read_multi(file=>'testout/t106_multi2.tif');
   ok(@imgs == @out, "reading 40 images from tiff");
diff --git a/t/t37w32font.t b/t/t37w32font.t
index e0c61b7e..98afbd30 100644
--- a/t/t37w32font.t
+++ b/t/t37w32font.t
@@ -8,7 +8,7 @@ print "ok 1\n";
 init_log("testout/t37w32font.log",1);
 
 sub skip { 
-  for (2..4) {
+  for (2..5) {
     print "ok $_ # skip not MS Windows\n";
   }
   malloc_state();