fixed some minor test code hiccups

diff --git a/Changes b/Changes
index d447b97757890f30a86aecd8fce9e66295de4c8a..1d46f9e73777f9b82272b56a289a10f8aebba588 100644 (file)
--- 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 a4d0f7c0fda53e90fbe91e773036a12787cc3a6b..f37af15421f2a102fad949581c67721d3fa10127 100644 (file)
--- 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 e0c61b7e5b458bb598d46bdec20dee81e9285eea..98afbd304498a8bebf5a7e472bb9fe14c9e113a1 100644 (file)
--- 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();