Take a larger margin to prevent 'X' failures in smokes

[perl5.git] / t / op / getpid.t

diff --git a/t/op/getpid.t b/t/op/getpid.t
index f1a4063..b51b064 100644 (file)
--- a/t/op/getpid.t
+++ b/t/op/getpid.t
@@ -11,8 +11,6 @@ BEGIN {
 use strict;
 use Config;
 
-plan tests => 2;
-
 BEGIN {
     if (!$Config{useithreads}) {
        print "1..0 # Skip: no ithreads\n";
@@ -22,11 +20,20 @@ BEGIN {
        print "1..0 # Skip: no getppid\n";
        exit;
     }
+    if ($ENV{PERL_CORE_MINITEST}) {
+        print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
+        exit 0;
+    }
+    eval 'use threads; use threads::shared';
+    plan tests => 3;
+    if ($@) {
+       fail("unable to load thread modules");
+    }
+    else {
+       pass("thread modules loaded");
+    }
 }
 
-use threads;
-use threads::shared;
-
 my ($pid, $ppid) = ($$, getppid());
 my $pid2 : shared = 0;
 my $ppid2 : shared = 0;