t/00_load.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7
   8 BEGIN {
   9     use_ok('Class::C3');
  10     use_ok('Class::C3::next');
  11 }
  12
  13 if ($] > 5.009_004) {
  14   ok ($Class::C3::C3_IN_CORE, 'C3 in core');
  15   ok (!$Class::C3::C3_XS, 'Not using XS');
  16   diag "Fast C3 provided by this perl version $] in core"
  17     unless $INC{'Devel/Hide.pm'};
  18 }
  19 else {
  20   ok (!$Class::C3::C3_IN_CORE, 'C3 not in core');
  21
  22   if (eval { require Class::C3::XS; Class::C3::XS->VERSION }) {
  23     ok ($Class::C3::C3_XS, 'Using XS');
  24     diag "XS speedups available (via Class::C3::XS)"
  25       unless $INC{'Devel/Hide.pm'};
  26   }
  27   else {
  28     ok (! $Class::C3::C3_XS, 'Not using XS');
  29     unless ($INC{'Devel/Hide.pm'}) {
  30       diag "NO XS speedups - YOUR CODE WILL BE VERY SLOW. Consider installing Class::C3::XS";
  31       sleep 3 if -t *STDIN or -t *STDERR;
  32     }
  33   }
  34 }