avoid a race condition on parallel testing for T1/
authorTony Cook <tony@develop-help.com>
Mon, 12 Nov 2012 10:23:01 +0000 (21:23 +1100)
committerTony Cook <tony@develop-help.com>
Mon, 12 Nov 2012 10:23:44 +0000 (21:23 +1100)
T1/t/t10type1.t
T1/t/t20oo.t

index 8e23561..47ea7b0 100644 (file)
@@ -12,7 +12,8 @@ plan tests => 97;
 
 ok($Imager::formats{t1}, "must have t1");
 
-ok((-d "testout" or mkdir "testout"), "make output directory");
+-d "testout" or mkdir "testout";
+ok(-d "testout", "make output directory");
 
 init_log("testout/t10type1.log",1);
 
index 273743e..ed5b381 100644 (file)
@@ -13,7 +13,8 @@ die $Imager::ERRSTR unless $green;
 my $red=Imager::Color->new(205, 92, 92, 255);
 die $Imager::ERRSTR unless $red;
 
-ok((-d "testout" or mkdir "testout"), "make output directory");
+-d "testout" or mkdir "testout";
+ok(-d "testout", "make output directory");
 
 Imager::init_log("testout/t20oo.log", 1);