From: Peter Prymmer <PPrymmer@factset.com>
Date: Thu, 19 Apr 2001 17:40:14 +0000 (-0700)
Subject: avoid t/u-*.t test on platforms where List/Util was not built
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b05f64e30c9e1ca25212fcc7e6306f789778833;p=p5sagit%2Fp5-mst-13.2.git

avoid t/u-*.t test on platforms where List/Util was not built
Message-ID: <Pine.OSF.4.10.10104191737200.348917-100000@aspara.forte.com>

p4raw-id: //depot/perl@9764
---

diff --git a/t/lib/u-blessed.t b/t/lib/u-blessed.t
index d70e023..89a740a 100755
--- a/t/lib/u-blessed.t
+++ b/t/lib/u-blessed.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use Scalar::Util qw(blessed);
diff --git a/t/lib/u-dualvar.t b/t/lib/u-dualvar.t
index acee8ad..5bf4fe9 100755
--- a/t/lib/u-dualvar.t
+++ b/t/lib/u-dualvar.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 BEGIN {
diff --git a/t/lib/u-first.t b/t/lib/u-first.t
index 71f3de4..6a35948 100755
--- a/t/lib/u-first.t
+++ b/t/lib/u-first.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use List::Util qw(first);
diff --git a/t/lib/u-max.t b/t/lib/u-max.t
index f4873bd..911003b 100755
--- a/t/lib/u-max.t
+++ b/t/lib/u-max.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use List::Util qw(max);
diff --git a/t/lib/u-maxstr.t b/t/lib/u-maxstr.t
index 7964613..0ec35ca 100755
--- a/t/lib/u-maxstr.t
+++ b/t/lib/u-maxstr.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use List::Util qw(maxstr);
diff --git a/t/lib/u-min.t b/t/lib/u-min.t
index 124d88a..a51ced4 100755
--- a/t/lib/u-min.t
+++ b/t/lib/u-min.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use List::Util qw(min);
diff --git a/t/lib/u-minstr.t b/t/lib/u-minstr.t
index 12dc2fb..c000e78 100755
--- a/t/lib/u-minstr.t
+++ b/t/lib/u-minstr.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use List::Util qw(minstr);
diff --git a/t/lib/u-readonly.t b/t/lib/u-readonly.t
index 5079725..864e1f1 100644
--- a/t/lib/u-readonly.t
+++ b/t/lib/u-readonly.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use Scalar::Util qw(readonly);
diff --git a/t/lib/u-reduce.t b/t/lib/u-reduce.t
index d00dea1..063e0b7 100755
--- a/t/lib/u-reduce.t
+++ b/t/lib/u-reduce.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use List::Util qw(reduce min);
diff --git a/t/lib/u-reftype.t b/t/lib/u-reftype.t
index 06f9ffb..ea7ea7b 100755
--- a/t/lib/u-reftype.t
+++ b/t/lib/u-reftype.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use Scalar::Util qw(reftype);
diff --git a/t/lib/u-sum.t b/t/lib/u-sum.t
index 9c1c7cb..34fb690 100755
--- a/t/lib/u-sum.t
+++ b/t/lib/u-sum.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use List::Util qw(sum);
diff --git a/t/lib/u-tainted.t b/t/lib/u-tainted.t
index c38cf1a..5587bb7 100644
--- a/t/lib/u-tainted.t
+++ b/t/lib/u-tainted.t
@@ -3,6 +3,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 use lib qw(blib/lib blib/arch);
diff --git a/t/lib/u-weak.t b/t/lib/u-weak.t
index bab6197..6c7bea7 100755
--- a/t/lib/u-weak.t
+++ b/t/lib/u-weak.t
@@ -1,6 +1,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config; import Config;
+	if ($Config{extensions} !~ /\bList\/Util\b/) {
+	    print "1..0 # Skip: List::Util was not built\n";
+	    exit 0;
+	}
 }
 
 BEGIN {