- some test scripts weren't fixing @INC correctly

- t/t101jpeg.t wasn't skipping enough when there was no jpeg support

diff --git a/Changes b/Changes
index 150cce8dac663ef0a5a6e153e3af983db86df3b2..8669bcc4a0145c12eba9d88a7057f4a9db73086c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1221,6 +1221,10 @@ Revision history for Perl extension Imager.
 - decode the EXIF GPS IFD as well
 - minor documentation touchups
 - bump version 0.45_01
+
+0.45_02
+- some test scripts weren't fixing @INC correctly
+- t/t101jpeg.t wasn't skipping enough when there was no jpeg support
   
 =================================================================
 

diff --git a/t/t101jpeg.t b/t/t101jpeg.t
index ebf80f0bed9adfa8b9a3785aaaea8e94f55c5d03..1dc5a7dc60bba9bc045b8d50ae3e3311e87ad96a 100644 (file)
--- a/t/t101jpeg.t
+++ b/t/t101jpeg.t
@@ -30,7 +30,7 @@ if (!i_has_format("jpeg")) {
     $im = Imager->new(xsize=>2, ysize=>2);
     ok(!$im->write(file=>"testout/nojpeg.jpg"), "should fail to write jpeg");
     cmp_ok($im->errstr, '=~', qr/format not supported/, "check no jpeg message");
-    skip("no jpeg support", 5);
+    skip("no jpeg support", 45);
   }
 } else {
   open(FH,">testout/t101.jpg") || die "cannot open testout/t101.jpg for writing\n";

diff --git a/t/t108tga.t b/t/t108tga.t
index a19591f6ead99dd4ba39c96f16ede8c662fe1859..6e239f7aa83d68cc24d42b59c4284add178a8638 100644 (file)
--- a/t/t108tga.t
+++ b/t/t108tga.t
@@ -1,6 +1,7 @@
 #!perl -w
 use Imager qw(:all);
 use strict;
+use lib 't';
 use Test::More tests=>36;
 BEGIN { require "t/testtools.pl"; }
 init_log("testout/t108tga.log",1);

diff --git a/t/t15color.t b/t/t15color.t
index c4019e18e7ce1c54158000bd0caa8fabf32d23d0..e90385a091fe233041c3f526b10a1a899482b50f 100644 (file)
--- a/t/t15color.t
+++ b/t/t15color.t
@@ -7,6 +7,7 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
+use lib 't';
 use Test::More tests => 47;
 
 BEGIN { use_ok('Imager'); };

diff --git a/t/t21draw.t b/t/t21draw.t
index 318ff9c38537bd3cc4eff6d46fd8f471a756d1bf..110da5108b690e5bbb7968da318bd76eac1ca706 100644 (file)
--- a/t/t21draw.t
+++ b/t/t21draw.t
@@ -7,6 +7,7 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 use strict;
+use lib 't';
 use Test::More tests => 43;
 my $loaded;
 

diff --git a/t/t81hlines.t b/t/t81hlines.t
index 594f010f1d0c019f4e55054a03d31be010e13af8..3edfd1431f444ae79e41f2a6665a9c96ca5d0e42 100644 (file)
--- a/t/t81hlines.t
+++ b/t/t81hlines.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib 't';
 use Test::More;
 use Imager;
 

diff --git a/t/t91pod.t b/t/t91pod.t
index 5475b0cd57406d7b3964ab40065d5d6bef97778e..646041141d405ef095015d1fb1fadc075ece95c8 100644 (file)
--- a/t/t91pod.t
+++ b/t/t91pod.t
@@ -1,5 +1,6 @@
 #!perl -w
 use strict;
+use lib 't';
 use Test::More;
 eval "use Test::Pod;";
 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;