Commit | Line | Data |
aee45414 |
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 (); |
2ff28616 |
18 | use List::Util::XS (); |
19 | use Test::More tests => 2; |
aee45414 |
20 | |
21 | is( $Scalar::Util::VERSION, $List::Util::VERSION, "VERSION mismatch"); |
2ff28616 |
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"); |
aee45414 |
25 | |