avoid a race condition on parallel testing for T1/

diff --git a/T1/t/t10type1.t b/T1/t/t10type1.t
index 8e23561f9d2abe17da79e094ae27fbfe9a7544cd..47ea7b0bd533a3aa3c6802f8a815f1850680f572 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 273743e5e144b57c773c857674c79252565bb622..ed5b3819097c82ec2873240f25009c5a0944fdd5 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);