t/00_load.t

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