t/lib/commonsense.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7 }
   8
   9 plan( tests => 1);
  10
  11 require Config; import Config;
  12
  13 if (($Config{'extensions'} !~ /\bFcntl\b/) ){
  14   BAIL_OUT("Perl configured without Fcntl module");
  15 }
  16 ##Finds IO submodules when using \b
  17 if (($Config{'extensions'} !~ /\bIO\s/) ){
  18   BAIL_OUT("Perl configured without IO module");
  19 }
  20 # hey, DOS users do not need this kind of common sense ;-)
  21 if ($^O ne 'dos' && ($Config{'extensions'} !~ /\bFile\/Glob\b/) ){
  22   BAIL_OUT("Perl configured without File::Glob module");
  23 }
  24
  25 pass('common sense');
  26