ext/List-Util/t/00version.t

   1 #!./perl
   2
   3 BEGIN {
   4     unless (-d 'blib') {
   5         chdir 't' if -d 't';
   6         @INC = '../lib';
   7         require Config; import Config;
   8         keys %Config; # Silence warning
   9         if ($Config{extensions} !~ /\bList\/Util\b/) {
  10             print "1..0 # Skip: List::Util was not built\n";
  11             exit 0;
  12         }
  13     }
  14 }
  15
  16 use Scalar::Util ();
  17 use List::Util ();
  18 use List::Util::XS ();
  19 use Test::More tests => 2;
  20
  21 is( $Scalar::Util::VERSION, $List::Util::VERSION, "VERSION mismatch");
  22 my $has_xs = eval { Scalar::Util->import('dualvar'); 1 };
  23 my $xs_version = $has_xs ? $List::Util::VERSION : undef;
  24 is( $List::Util::XS::VERSION, $xs_version, "XS VERSION");
  25