ext/B/t/bblock.t

   1 #!./perl -Tw
   2
   3 BEGIN {
   4     if ($ENV{PERL_CORE}){
   5         chdir('t') if -d 't';
   6         @INC = ('.', '../lib');
   7     } else {
   8         unshift @INC, 't';
   9     }
  10     require Config;
  11     if (($Config::Config{'extensions'} !~ /\bB\b/) ){
  12         print "1..0 # Skip -- Perl configured without B module\n";
  13         exit 0;
  14     }
  15 }
  16
  17 use Test::More tests => 1;
  18
  19 use_ok('B::Bblock', qw(find_leaders));
  20
  21 # Someone who understands what this module does, please fill this out.