RT#65088 make sure each test script that needs testout/ creates it
authorTony Cook <tony@develop-help.com>
Thu, 3 Feb 2011 09:25:53 +0000 (20:25 +1100)
committerTony Cook <tony@develop-help.com>
Thu, 3 Feb 2011 09:25:53 +0000 (20:25 +1100)
41 files changed:
Changes
GIF/t/t20new.t
ICO/t/t70icosing.t
ICO/t/t71icomult.t
ICO/t/t72cursing.t
ICO/t/t73curmult.t
t/t01introvert.t
t/t020masked.t
t/t021sixteen.t
t/t022double.t
t/t05error.t
t/t07iolayer.t
t/t1000files.t
t/t101nojpeg.t
t/t103raw.t
t/t104ppm.t
t/t107bmp.t
t/t108tga.t
t/t15color.t
t/t20fill.t
t/t21draw.t
t/t22flood.t
t/t30t1font.t
t/t35ttfont.t
t/t36oofont.t
t/t40scale.t
t/t50basicoo.t
t/t55trans.t
t/t58trans2.t
t/t61filters.t
t/t64copyflip.t
t/t65crop.t
t/t66paste.t
t/t67convert.t
t/t68map.t
t/t69rubthru.t
t/t75polyaa.t
t/t80texttools.t
t/t82inline.t
t/t90cc.t
t/x11rubthru.t

diff --git a/Changes b/Changes
index 12b62a7..4c35aee 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
 ===========
 
index f68d9a2..c1082e3 100644 (file)
@@ -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);
index 8327e47..a1fe232 100644 (file)
@@ -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")
index f602c45..55a69f3 100644 (file)
@@ -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),
index 8a17424..9fb33fc 100644 (file)
@@ -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'),
index d0248bd..e17d0d4 100644 (file)
@@ -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),
index c0f3baf..6d7cf75 100644 (file)
@@ -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);
index eca923f..092624e 100644 (file)
@@ -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);
index abcfcd6..1468261 100644 (file)
@@ -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;
index c2ec684..fa2e07b 100644 (file)
@@ -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);
index 89635c4..caf3fd9 100644 (file)
@@ -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
index 4f747f5..111fac6 100644 (file)
@@ -6,6 +6,8 @@ use IO::Seekable;
 
 BEGIN { use_ok(Imager => ':all') };
 
+-d "testout" or mkdir "testout";
+
 init_log("testout/t07iolayer.log", 1);
 
 undef($/);
index 00380a0..2cf0a7c 100644 (file)
@@ -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:
index 24b632d..5f47a80 100644 (file)
@@ -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"}
index 5f55514..440c546 100644 (file)
@@ -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;
index ebe319c..0f9d858 100644 (file)
@@ -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);
index e8db5da..73fae3f 100644 (file)
@@ -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;
index ca6d02b..fd502c0 100644 (file)
@@ -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;
index 7b03dc4..ba46edd 100644 (file)
@@ -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);
index 5508d51..e060b0f 100644 (file)
@@ -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);
index eed43e6..0fb5b2e 100644 (file)
@@ -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);
index 695fed7..767cbab 100644 (file)
@@ -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);
index da5b586..c24c093 100644 (file)
@@ -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';
index aa512cb..256b6bd 100644 (file)
@@ -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:
index eb7965c..3038b74 100644 (file)
@@ -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';
index f1d32a9..7e2a149 100644 (file)
@@ -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();
 
index 2ea9f14..994032f 100644 (file)
@@ -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
index 7aa2462..2c84ce7 100644 (file)
@@ -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";
index 46db20a..eca3638 100644 (file)
@@ -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();
index 2c1f16a..b9e0005 100644 (file)
@@ -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
index e822933..58a6ff9 100644 (file)
@@ -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";
index 627a86b..3adaa15 100644 (file)
@@ -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";
index 160a514..c8f1f37 100644 (file)
@@ -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
index fe89401..94e2a96 100644 (file)
@@ -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);
index ce225c5..600887d 100644 (file)
@@ -1,3 +1,5 @@
+-d "testout" or mkdir "testout";
+
 Imager::init("log"=>'testout/t68map.log');
 
 use Imager qw(:all :handy);
index 447c3eb..ae78d1c 100644 (file)
@@ -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;
index 73068e2..ace2e64 100644 (file)
@@ -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);
index 4a4c323..1dff6ee 100644 (file)
@@ -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);
index da61334..c4e24a2 100644 (file)
@@ -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');
index 253db3f..50a9158 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');
 
 {
index f190368..f71ad66 100644 (file)
@@ -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);