RT#65088 make sure each test script that needs testout/ creates it

diff --git a/Changes b/Changes
index 12b62a7d1a53f8e32e1f88914979676123c2ee46..4c35aee3620757a7c25774b3dc164a5688964f63 100644 (file)
--- a/Changes
+++ b/Changes
@@ -27,6 +27,9 @@ Bug fixes:
    https://rt.cpan.org/Ticket/Display.html?id=65386
    https://rt.cpan.org/Ticket/Display.html?id=62855
 
+ - make sure each test script that needs testout/ creates it.
+   https://rt.cpan.org/Ticket/Display.html?id=65088
+
 Imager 0.80 - 17 Jan 2011
 ===========
 

diff --git a/GIF/t/t20new.t b/GIF/t/t20new.t
index f68d9a29b9c64a0509433b17bb9fe0154ee43914..c1082e36bbcaa25cadca175b18de7d4f03c7b5c9 100644 (file)
--- a/GIF/t/t20new.t
+++ b/GIF/t/t20new.t
@@ -14,6 +14,8 @@ use Test::More tests => 21;
 use Imager qw(:all :handy);
 use Imager::Test qw(test_image is_color3);
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t70newgif.log');
 
 my $green=i_color_new(0,255,0,0);

diff --git a/ICO/t/t70icosing.t b/ICO/t/t70icosing.t
index 8327e47f6872302dde972d93436abdd1c9f784c5..a1fe2325ddc3abbf164071470a098837e4f4257f 100644 (file)
--- a/ICO/t/t70icosing.t
+++ b/ICO/t/t70icosing.t
@@ -4,7 +4,9 @@ use Test::More tests => 1;
 use Imager;
 use Imager::Test qw(test_image);
 
+-d "testout" or mkdir "testout";
 # checks that we load the ICO write handler automatically
+
 my $img = test_image();
 ok($img->write(file => 'testout/icosing.ico'),
    "write ico with autoload")

diff --git a/ICO/t/t71icomult.t b/ICO/t/t71icomult.t
index f602c4569dd138f2ac12464d19cfc550b8e94d4f..55a69f35f278a68635329db60802e57cd6f5ac7b 100644 (file)
--- a/ICO/t/t71icomult.t
+++ b/ICO/t/t71icomult.t
@@ -4,6 +4,8 @@ use Test::More tests => 1;
 use Imager;
 use Imager::Test qw(test_image);
 
+-d "testout" or mkdir "testout";
+
 # checks that we load the ICO write handler automatically
 my $img = test_image();
 ok(Imager->write_multi({ file => 'testout/icomult.ico' }, $img, $img),

diff --git a/ICO/t/t72cursing.t b/ICO/t/t72cursing.t
index 8a174247e54b300a8f22439dc1434dbad3b8301c..9fb33fc1d257ce32cc1ff1572666b544c72c75fc 100644 (file)
--- a/ICO/t/t72cursing.t
+++ b/ICO/t/t72cursing.t
@@ -4,6 +4,8 @@ use Test::More tests => 1;
 use Imager;
 use Imager::Test qw(test_image);
 
+-d "testout" or mkdir "testout";
+
 # checks that we load the CUR write handler automatically
 my $img = test_image();
 ok($img->write(file => 'testout/cursing.cur'),

diff --git a/ICO/t/t73curmult.t b/ICO/t/t73curmult.t
index d0248bdabaa6666c1a1c3a9573cf28daf15b4f95..e17d0d48802cca101766c0464a8de0ecea714f6f 100644 (file)
--- a/ICO/t/t73curmult.t
+++ b/ICO/t/t73curmult.t
@@ -4,6 +4,8 @@ use Test::More tests => 1;
 use Imager;
 use Imager::Test qw(test_image);
 
+-d "testout" or mkdir "testout";
+
 # checks that we load the CUR write handler automatically
 my $img = test_image();
 ok(Imager->write_multi({ file => 'testout/icomult.cur' }, $img, $img),

diff --git a/t/t01introvert.t b/t/t01introvert.t
index c0f3baf3ca85eec5fc7c8cafeda1d76e4afde2f1..6d7cf75600445c967eb7743c67ef010810bf5e76 100644 (file)
--- a/t/t01introvert.t
+++ b/t/t01introvert.t
@@ -9,6 +9,8 @@ BEGIN { use_ok(Imager => qw(:handy :all)) }
 
 use Imager::Test qw(image_bounds_checks is_color3 is_color4 is_fcolor4 color_cmp mask_tests);
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t01introvert.log",1);
 
 my $im_g = Imager::ImgRaw::new(100, 101, 1);

diff --git a/t/t020masked.t b/t/t020masked.t
index eca923f92a25b2514ee880c9cd180636b8247395..092624ed1fd62f04bb21b4a24a89264f7a28d9d7 100644 (file)
--- a/t/t020masked.t
+++ b/t/t020masked.t
@@ -3,6 +3,9 @@ use strict;
 use Test::More tests => 142;
 use Imager qw(:all :handy);
 use Imager::Test qw(is_color3 is_fcolor3);
+
+-d "testout" or mkdir "testout";
+
 init_log("testout/t020masked.log", 1);
 
 my $base_rgb = Imager::ImgRaw::new(100, 100, 3);

diff --git a/t/t021sixteen.t b/t/t021sixteen.t
index abcfcd6b3901326b23a670f4ce2ba69776810f2a..14682615143800d7f2791b4563e8f316b9577fec 100644 (file)
--- a/t/t021sixteen.t
+++ b/t/t021sixteen.t
@@ -4,6 +4,8 @@ use Test::More tests => 104;
 
 BEGIN { use_ok(Imager=>qw(:all :handy)) }
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t021sixteen.log", 1);
 
 use Imager::Color::Float;

diff --git a/t/t022double.t b/t/t022double.t
index c2ec68406f8f5ceae69fd1b18307af610261bd10..fa2e07b9f9dab41c9d7519a73d6b4ee8bc614daa 100644 (file)
--- a/t/t022double.t
+++ b/t/t022double.t
@@ -4,6 +4,8 @@ use Test::More tests => 83;
 
 BEGIN { use_ok(Imager => qw(:all :handy)) }
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t022double.log", 1);
 
 use Imager::Test qw(image_bounds_checks test_colorf_gpix test_colorf_glin mask_tests);

diff --git a/t/t05error.t b/t/t05error.t
index 89635c43978a544ff7c172614325eeb4c90813b6..caf3fd9f362645070b73523cdee1b960fa99dc04 100644 (file)
--- a/t/t05error.t
+++ b/t/t05error.t
@@ -3,6 +3,9 @@ END { print "not ok 1\n" unless $loaded; };
 use Imager qw(:all);
 ++$loaded;
 print "ok 1\n";
+
+-d "testout" or mkdir "testout";
+
 init_log("testout/t05error.log", 1);
 
 # try to read an invalid pnm file

diff --git a/t/t07iolayer.t b/t/t07iolayer.t
index 4f747f53baf16b33d6cf3219cc072d7c420e2779..111fac63cfe01351647ebf17e4f78107c42c4068 100644 (file)
--- a/t/t07iolayer.t
+++ b/t/t07iolayer.t
@@ -6,6 +6,8 @@ use IO::Seekable;
 
 BEGIN { use_ok(Imager => ':all') };
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t07iolayer.log", 1);
 
 undef($/);

diff --git a/t/t1000files.t b/t/t1000files.t
index 00380a023b00d22e39affd0d573b03b5b5b3d3de..2cf0a7c0ee75545a0efd3847a7651d68c4083668 100644 (file)
--- a/t/t1000files.t
+++ b/t/t1000files.t
@@ -7,6 +7,8 @@ use strict;
 use Test::More tests => 35;
 use Imager;
 
+-d "testout" or mkdir "testout";
+
 Imager::init_log("testout/t1000files.log", 1);
 
 SKIP:

diff --git a/t/t101nojpeg.t b/t/t101nojpeg.t
index 24b632d65b03512a9ab97218a870317c454689cd..5f47a80ac61884907a2c12f8b3ce8fb9359331ff 100644 (file)
--- a/t/t101nojpeg.t
+++ b/t/t101nojpeg.t
@@ -3,6 +3,8 @@ use strict;
 use Test::More;
 use Imager qw(:all);
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t101jpeg.log",1);
 
 $Imager::formats{"jpeg"}

diff --git a/t/t103raw.t b/t/t103raw.t
index 5f55514c470b787ac0d8b2a7db67e6e3f6df8f71..440c546e1c30f511b5c8de51cb412dd10f722b91 100644 (file)
--- a/t/t103raw.t
+++ b/t/t103raw.t
@@ -3,6 +3,9 @@ use strict;
 use Test::More tests => 47;
 use Imager qw(:all);
 use Imager::Test qw/is_color3 is_color4/;
+
+-d "testout" or mkdir "testout";
+
 init_log("testout/t103raw.log",1);
 
 $| = 1;

diff --git a/t/t104ppm.t b/t/t104ppm.t
index ebe319c38788e91840f8fbe500be3411c8be59ff..0f9d8581a81032513c9324e5699f4d27fd684ebc 100644 (file)
--- a/t/t104ppm.t
+++ b/t/t104ppm.t
@@ -4,6 +4,8 @@ use Test::More tests => 191;
 use strict;
 use Imager::Test qw(test_image_raw test_image_16 is_color3 is_color1 is_image);
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t104ppm.log",1);
 
 my $green = i_color_new(0,255,0,255);

diff --git a/t/t107bmp.t b/t/t107bmp.t
index e8db5da07b463ef45707921d7211661866cdac9e..73fae3f790ddd9c200917d2250f83d9a4023d090 100644 (file)
--- a/t/t107bmp.t
+++ b/t/t107bmp.t
@@ -3,6 +3,9 @@ use strict;
 use Test::More tests => 213;
 use Imager qw(:all);
 use Imager::Test qw(test_image_raw is_image is_color3 test_image);
+
+-d "testout" or mkdir "testout";
+
 init_log("testout/t107bmp.log",1);
 
 my $debug_writes = 0;

diff --git a/t/t108tga.t b/t/t108tga.t
index ca6d02bafd6f0a6d9eb9ac262d316a8b1ffac274..fd502c00d420cede382ed0788b7dd4aa0dfc2e95 100644 (file)
--- a/t/t108tga.t
+++ b/t/t108tga.t
@@ -3,8 +3,10 @@ use Imager qw(:all);
 use strict;
 use Test::More tests=>46;
 use Imager::Test qw(is_color4 is_image);
-init_log("testout/t108tga.log",1);
 
+-d "testout" or mkdir "testout";
+
+init_log("testout/t108tga.log",1);
 
 my $img = create_test_image();
 my $base_diff = 0;

diff --git a/t/t15color.t b/t/t15color.t
index 7b03dc41e8d607935f13a6b82fb45aa8739a73a9..ba46edda24405cbdb0adb33a1963c1803f8934e8 100644 (file)
--- a/t/t15color.t
+++ b/t/t15color.t
@@ -12,6 +12,8 @@ use Test::More tests => 70;
 use Imager;
 use Imager::Test qw(is_fcolor4);
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t15color.log",1);
 
 my $c1 = Imager::Color->new(100, 150, 200, 250);

diff --git a/t/t20fill.t b/t/t20fill.t
index 5508d51e11bf692765590e1fdc27e5dd1ca11f78..e060b0fa3334da710b2ca09dc36083d04b49937d 100644 (file)
--- a/t/t20fill.t
+++ b/t/t20fill.t
@@ -8,6 +8,8 @@ use Imager::Color::Float;
 use Imager::Test qw(is_image is_color4 is_fcolor4 is_color3);
 use Config;
 
+-d "testout" or mkdir "testout";
+
 Imager::init_log("testout/t20fill.log", 1);
 
 my $blue = NC(0,0,255);

diff --git a/t/t21draw.t b/t/t21draw.t
index eed43e63369cea5022b287b2188867b51fb123b9..0fb5b2e529647909f07a1a50afa9ef0a5d16d7b2 100644 (file)
--- a/t/t21draw.t
+++ b/t/t21draw.t
@@ -5,6 +5,8 @@ use Imager ':all';
 use Imager::Test qw(is_color3 is_image);
 use constant PI => 3.14159265358979;
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t21draw.log",1);
 
 my $redobj = NC(255, 0, 0);

diff --git a/t/t22flood.t b/t/t22flood.t
index 695fed7fd6237e9096142f39533d8b713f1c0d9b..767cbab85bb075e65214d478c5cd39144c859ee3 100644 (file)
--- a/t/t22flood.t
+++ b/t/t22flood.t
@@ -4,6 +4,8 @@ use Test::More tests => 15;
 use Imager;
 use Imager::Test qw(is_image);
 
+-d "testout" or mkdir "testout";
+
 { # flood_fill wouldn't fill to the right if the area was just a
   # single scan-line
   my $im = Imager->new(xsize => 5, ysize => 3);

diff --git a/t/t30t1font.t b/t/t30t1font.t
index da5b5863901468ebe1b1ef238f954da6096f1724..c24c0937e035c964e65d70498767a99d111a43b7 100644 (file)
--- a/t/t30t1font.t
+++ b/t/t30t1font.t
@@ -19,6 +19,8 @@ i_has_format("t1")
 
 plan tests => 95;
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t30t1font.log",1);
 
 my $deffont = 'fontfiles/dcr10.pfb';

diff --git a/t/t35ttfont.t b/t/t35ttfont.t
index aa512cb34283d58b8670cecfd2589fbc3c33826c..256b6bd9010c234f9724a1d4d53556e3ed02ac00 100644 (file)
--- a/t/t35ttfont.t
+++ b/t/t35ttfont.t
@@ -7,6 +7,8 @@ $|=1;
 BEGIN { use_ok(Imager => ':all') }
 use Imager::Test qw(diff_text_with_nul is_color3);
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t35ttfont.log",2);
 
 SKIP:

diff --git a/t/t36oofont.t b/t/t36oofont.t
index eb7965ccc4c9d8cb506720f82cb23019e60da690..3038b7432436be53800bb88e4ee1c84b97b95f10 100644 (file)
--- a/t/t36oofont.t
+++ b/t/t36oofont.t
@@ -14,6 +14,8 @@ use Test::More tests => 20;
 
 BEGIN { use_ok('Imager') };
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t36oofont.log", 1);
 
 my $fontname_tt=$ENV{'TTFONTTEST'}||'./fontfiles/dodge.ttf';

diff --git a/t/t40scale.t b/t/t40scale.t
index f1d32a9420d3db559731e800730383d4b33d3844..7e2a149b485177248f7be72371ea102680f83dfd 100644 (file)
--- a/t/t40scale.t
+++ b/t/t40scale.t
@@ -5,6 +5,8 @@ use Test::More tests => 232;
 BEGIN { use_ok(Imager=>':all') }
 use Imager::Test qw(is_image is_color4 is_image_similar);
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t40scale.log');
 my $img=Imager->new();
 

diff --git a/t/t50basicoo.t b/t/t50basicoo.t
index 2ea9f14e504dd23d12a7929224c1f621b808bd48..994032fe3e001744213cdbcc73e33c2e10ab246f 100644 (file)
--- a/t/t50basicoo.t
+++ b/t/t50basicoo.t
@@ -11,6 +11,8 @@ use IO::Seekable;
 
 my $buggy_giflib_file = "buggy_giflib.txt";
 
+-d "testout" or mkdir "testout";
+
 Imager::init("log"=>"testout/t50basicoo.log");
 
 # single image/file types

diff --git a/t/t55trans.t b/t/t55trans.t
index 7aa2462b304471777e2da0ab4642e50d8c92de36..2c84ce7b409024b432b49848424b4b7cee787fe2 100644 (file)
--- a/t/t55trans.t
+++ b/t/t55trans.t
@@ -6,6 +6,8 @@ $loaded = 1;
 
 #$Imager::DEBUG=1;
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t55trans.log');
 
 $img=Imager->new() || die "unable to create image object\n";

diff --git a/t/t58trans2.t b/t/t58trans2.t
index 46db20a516ab448e054ff1e71d5bd5679f3433c7..eca36381a315e4d22688efe0b1a20c56e86777ab 100644 (file)
--- a/t/t58trans2.t
+++ b/t/t58trans2.t
@@ -4,6 +4,8 @@ use Test::More tests => 37;
 BEGIN { use_ok('Imager'); }
 use Imager::Test qw(is_color3);
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t58trans2.log');
 
 my $im1 = Imager->new();

diff --git a/t/t61filters.t b/t/t61filters.t
index 2c1f16af2f52d0c2bc54054068d461cab3d61873..b9e0005466dcc88b42f876eed8c4c2e6761045e4 100644 (file)
--- a/t/t61filters.t
+++ b/t/t61filters.t
@@ -2,6 +2,9 @@
 use strict;
 use Imager qw(:handy);
 use Test::More tests => 113;
+
+-d "testout" or mkdir "testout";
+
 Imager::init_log("testout/t61filters.log", 1);
 use Imager::Test qw(is_image_similar test_image is_image is_color4 is_fcolor4);
 # meant for testing the filters themselves

diff --git a/t/t64copyflip.t b/t/t64copyflip.t
index e8229335ba4219e296868ca6a72c6673e716dbe1..58a6ff94a6540776adad927b08cc5874a9147834 100644 (file)
--- a/t/t64copyflip.t
+++ b/t/t64copyflip.t
@@ -6,6 +6,8 @@ use Imager::Test qw(is_color3 is_image is_imaged test_image_double test_image is
 
 #$Imager::DEBUG=1;
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t64copyflip.log');
 
 my $img=Imager->new() or die "unable to create image object\n";

diff --git a/t/t65crop.t b/t/t65crop.t
index 627a86b1adf6fda0068590bc51a081156cdf47f1..3adaa1516fe638f4c5f2c634c31d4a4a327e4ca8 100644 (file)
--- a/t/t65crop.t
+++ b/t/t65crop.t
@@ -6,6 +6,8 @@ use Imager::Test qw(test_image);
 
 #$Imager::DEBUG=1;
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t65crop.log');
 
 my $img=Imager->new() || die "unable to create image object\n";

diff --git a/t/t66paste.t b/t/t66paste.t
index 160a514730e1a2796f5a9fc8aa4b7a8df18225c7..c8f1f3772772f494d5b39a6dafad7ec65f2aa46c 100644 (file)
--- a/t/t66paste.t
+++ b/t/t66paste.t
@@ -7,6 +7,8 @@ use Imager::Test qw(is_image);
 
 #$Imager::DEBUG=1;
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t66paste.log');
 
 # the original smoke tests

diff --git a/t/t67convert.t b/t/t67convert.t
index fe89401600bf358259e0a8aae255a3f985ffa8cf..94e2a961e623eb026406bcc6824eef0ec49a33d2 100644 (file)
--- a/t/t67convert.t
+++ b/t/t67convert.t
@@ -4,6 +4,8 @@ use Imager qw(:all :handy);
 use Test::More tests => 27;
 use Imager::Test qw(test_colorf_gpix is_fcolor1 is_fcolor3);
 
+-d "testout" or mkdir "testout";
+
 Imager::init("log"=>'testout/t67convert.log');
 
 my $imbase = Imager::ImgRaw::new(200,300,3);

diff --git a/t/t68map.t b/t/t68map.t
index ce225c52b471c0e33244474bbffd0f0ab364f7fe..600887ded279d58b628812ac041f54504e1cca14 100644 (file)
--- a/t/t68map.t
+++ b/t/t68map.t
@@ -1,3 +1,5 @@
+-d "testout" or mkdir "testout";
+
 Imager::init("log"=>'testout/t68map.log');
 
 use Imager qw(:all :handy);

diff --git a/t/t69rubthru.t b/t/t69rubthru.t
index 447c3eb6faad90791dded4ee35018c053505cec0..ae78d1c6dc24f2983fda654c43818d0d85057642 100644 (file)
--- a/t/t69rubthru.t
+++ b/t/t69rubthru.t
@@ -4,6 +4,8 @@ use Test::More tests => 76;
 use Imager qw(:all :handy);
 use Imager::Test qw(is_image);
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t69rubthru.log", 1);
 
 my $src_height = 80;

diff --git a/t/t75polyaa.t b/t/t75polyaa.t
index 73068e2442ff9199c5872063151f7aecd799521b..ace2e64be8b5183ed4e1267cce0cf87eb0331ae2 100644 (file)
--- a/t/t75polyaa.t
+++ b/t/t75polyaa.t
@@ -8,6 +8,8 @@ use Imager::Test qw(is_image is_color3);
 
 sub PI () { 3.14159265358979323846 }
 
+-d "testout" or mkdir "testout";
+
 Imager::init_log("testout/t75aapolyaa.log",1);
 
 my $red   = Imager::Color->new(255,0,0);

diff --git a/t/t80texttools.t b/t/t80texttools.t
index 4a4c323a778b902b94a423e3990f65383c2ea76a..1dff6ee6d26526e4de6aad145012c3a525ac8095 100644 (file)
--- a/t/t80texttools.t
+++ b/t/t80texttools.t
@@ -4,6 +4,8 @@ use Test::More tests => 13;
 
 BEGIN { use_ok('Imager') }
 
+-d "testout" or mkdir "testout";
+
 require_ok('Imager::Font::Wrap');
 
 my $img = Imager->new(xsize=>400, ysize=>400);

diff --git a/t/t82inline.t b/t/t82inline.t
index da61334c70110dac299b3985ea61bfc7cb438100..c4e24a25d485e832f75c4df4f96bbb5773d26e29 100644 (file)
--- a/t/t82inline.t
+++ b/t/t82inline.t
@@ -16,6 +16,8 @@ plan skip_all => "Inline won't work in directories with spaces"
 plan skip_all => "perl 5.005_04, 5.005_05 too buggy"
   if $] =~ /^5\.005_0[45]$/;
 
+-d "testout" or mkdir "testout";
+
 plan tests => 9;
 require Inline;
 Inline->import(with => 'Imager');

diff --git a/t/t90cc.t b/t/t90cc.t
index 253db3f239f09ce2424c511b915531c549fab097..50a9158e10845ef73a1d7eab291457efaa049c27 100644 (file)
--- a/t/t90cc.t
+++ b/t/t90cc.t
@@ -4,6 +4,8 @@ use Test::More tests => 16;
 
 use Imager;
 
+-d "testout" or mkdir "testout";
+
 Imager::init('log'=>'testout/t90cc.log');
 
 {

diff --git a/t/x11rubthru.t b/t/x11rubthru.t
index f19036881e97903131a8f9b56ba7f9da7387ad74..f71ad6606f1fdc65e93ed5c73bcea913e7c930f0 100644 (file)
--- a/t/x11rubthru.t
+++ b/t/x11rubthru.t
@@ -7,6 +7,8 @@ use Test::More;
 $Imager::formats{"tiff"}
   or plan skip_all => "no tiff support";
 
+-d "testout" or mkdir "testout";
+
 plan tests => 2;
 
 my $dest = Imager->new(xsize => 100, ysize => 100, channels => 4);