From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 18 Jun 2004 11:38:24 +0000 (+0000)
Subject: If we don't build B, we should skip all its tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9cd8f8571248133e4de95e0188070c0cef2693b6;p=p5sagit%2Fp5-mst-13.2.git

If we don't build B, we should skip all its tests.

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

diff --git a/ext/B/t/asmdata.t b/ext/B/t/asmdata.t
index 5730cca..b787ee9 100644
--- a/ext/B/t/asmdata.t
+++ b/ext/B/t/asmdata.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = '../lib';
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
 }
 
 use Test::More tests => 13;
diff --git a/ext/B/t/b.t b/ext/B/t/b.t
index 45250e2..5e7201e 100755
--- a/ext/B/t/b.t
+++ b/ext/B/t/b.t
@@ -8,6 +8,11 @@ BEGIN {
 	@INC = '.';
 	push @INC, '../lib';
     }
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
 }
 
 $|  = 1;
diff --git a/ext/B/t/bblock.t b/ext/B/t/bblock.t
index 1d8e04c..f8866fc 100644
--- a/ext/B/t/bblock.t
+++ b/ext/B/t/bblock.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = '../lib';
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
 }
 
 use Test::More tests => 1;
diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index 2066105..831dae8 100644
--- a/ext/B/t/bytecode.t
+++ b/ext/B/t/bytecode.t
@@ -10,6 +10,10 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = qw(../lib);
     use Config;
+    if (($Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     if ($Config{ccflags} =~ /-DPERL_COPY_ON_WRITE/) {
 	print "1..0 # skip - no COW for now\n";
 	exit 0;
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index ac502ff..16c5612 100644
--- a/ext/B/t/concise.t
+++ b/ext/B/t/concise.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = '../lib';
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 
diff --git a/ext/B/t/debug.t b/ext/B/t/debug.t
index 151a5f3..2fe0044 100755
--- a/ext/B/t/debug.t
+++ b/ext/B/t/debug.t
@@ -8,6 +8,11 @@ BEGIN {
 	@INC = '.';
 	push @INC, '../lib';
     }
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
 }
 
 $|  = 1;
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 5333995..f599a0e 100644
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -8,6 +8,11 @@ BEGIN {
 	@INC = '.';
 	push @INC, '../lib';
     }
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
 }
 
 $|  = 1;
diff --git a/ext/B/t/f_map.t b/ext/B/t/f_map.t
index df7d91c..478cee8 100644
--- a/ext/B/t/f_map.t
+++ b/ext/B/t/f_map.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir q(t);
     @INC = qw(../lib ../ext/B/t);
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require q(./test.pl);
 }
 use OptreeCheck;
diff --git a/ext/B/t/f_sort.t b/ext/B/t/f_sort.t
index 7589da9..7d66c2d 100644
--- a/ext/B/t/f_sort.t
+++ b/ext/B/t/f_sort.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir q(t);
     @INC = qw(../lib ../ext/B/t);
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require q(./test.pl);
 }
 use OptreeCheck;
diff --git a/ext/B/t/lint.t b/ext/B/t/lint.t
index 3c71bdc..04d8f83 100644
--- a/ext/B/t/lint.t
+++ b/ext/B/t/lint.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(../lib);
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 
diff --git a/ext/B/t/o.t b/ext/B/t/o.t
index d964228..b8b4349 100644
--- a/ext/B/t/o.t
+++ b/ext/B/t/o.t
@@ -3,6 +3,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = ('../lib', 'lib', '.');
+	require Config;
+	if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+		print "1..0 # Skip -- Perl configured without B module\n";
+		exit 0;
+	}
 	require 'test.pl';
 }
 
diff --git a/ext/B/t/optree_check.t b/ext/B/t/optree_check.t
index 9968c57..7c86291 100644
--- a/ext/B/t/optree_check.t
+++ b/ext/B/t/optree_check.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = ('../lib', '../ext/B/t');
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 
diff --git a/ext/B/t/optree_concise.t b/ext/B/t/optree_concise.t
index dd6593b..b274409 100644
--- a/ext/B/t/optree_concise.t
+++ b/ext/B/t/optree_concise.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = ('../lib', '../ext/B/t');
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 
diff --git a/ext/B/t/optree_samples.t b/ext/B/t/optree_samples.t
index 90d57bd..a8bc790 100644
--- a/ext/B/t/optree_samples.t
+++ b/ext/B/t/optree_samples.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = ('../lib', '../ext/B/t');
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 use OptreeCheck;
diff --git a/ext/B/t/optree_sort.t b/ext/B/t/optree_sort.t
index 1126821..b7615d9 100644
--- a/ext/B/t/optree_sort.t
+++ b/ext/B/t/optree_sort.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = ('../lib', '../ext/B/t');
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 use OptreeCheck;
diff --git a/ext/B/t/optree_specials.t b/ext/B/t/optree_specials.t
index 72fff66..75d2a8a 100644
--- a/ext/B/t/optree_specials.t
+++ b/ext/B/t/optree_specials.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = ('../lib', '../ext/B/t');
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 
diff --git a/ext/B/t/optree_varinit.t b/ext/B/t/optree_varinit.t
index dd1ef92..51cd9e7 100644
--- a/ext/B/t/optree_varinit.t
+++ b/ext/B/t/optree_varinit.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't';
     @INC = ('../lib', '../ext/B/t');
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 use OptreeCheck;
diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t
index 9e3240f..b99cf16 100755
--- a/ext/B/t/showlex.t
+++ b/ext/B/t/showlex.t
@@ -7,6 +7,11 @@ BEGIN {
     } else {
 	@INC = '../lib';
     }
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 
diff --git a/ext/B/t/stash.t b/ext/B/t/stash.t
index 171abf1..99f96fe 100755
--- a/ext/B/t/stash.t
+++ b/ext/B/t/stash.t
@@ -7,6 +7,11 @@ BEGIN {
     } else {
 	@INC = '../lib';
     }
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
 }
 
 $|  = 1;
diff --git a/ext/B/t/terse.t b/ext/B/t/terse.t
index b11c873..d8d0529 100644
--- a/ext/B/t/terse.t
+++ b/ext/B/t/terse.t
@@ -3,6 +3,11 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require Config;
+	if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+		print "1..0 # Skip -- Perl configured without B module\n";
+		exit 0;
+	}
 }
 
 use Test::More tests => 16;
diff --git a/ext/B/t/xref.t b/ext/B/t/xref.t
index b1d0bc0..ade0154 100644
--- a/ext/B/t/xref.t
+++ b/ext/B/t/xref.t
@@ -3,6 +3,11 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(../lib);
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
 }
 
 use strict;