Add skip_all_without_config() to test.pl, and use it in 6 tests.

This abstracts out the common idiom of loading Config, checking if a particular
key is true, and if not implementing a "skip all" with an appropriate reason.

1 files changed, 1 insertions, 8 deletions

diff --git a/t/op/getpid.t b/t/op/getpid.t
index b51b0646fc..ac066d562d 100644
--- a/t/op/getpid.t
+++ b/t/op/getpid.t
@@ -12,14 +12,7 @@ use strict;
 use Config;
 
 BEGIN {
-    if (!$Config{useithreads}) {
-	print "1..0 # Skip: no ithreads\n";
-	exit;
-    }
-    if (!$Config{d_getppid}) {
-	print "1..0 # Skip: no getppid\n";
-	exit;
-    }
+    skip_all_without_config($_) foreach qw(useithreads d_getppid);
     if ($ENV{PERL_CORE_MINITEST}) {
         print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
         exit 0;