avoid a race condition on parallel testing for T1/

diff --git a/T1/t/t10type1.t b/T1/t/t10type1.t
index 8e23561..47ea7b0 100644 (file)
--- a/T1/t/t10type1.t
+++ b/T1/t/t10type1.t
@@ -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);
 

diff --git a/T1/t/t20oo.t b/T1/t/t20oo.t
index 273743e..ed5b381 100644 (file)
--- a/T1/t/t20oo.t
+++ b/T1/t/t20oo.t
@@ -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);