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 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (executable)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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;