1#!./perl
2
3BEGIN {
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
16use Scalar::Util ();
17use List::Util ();
18use List::Util::XS ();
19use Test::More tests => 2;
20
21is( $Scalar::Util::VERSION, $List::Util::VERSION, "VERSION mismatch");
22my $has_xs = eval { Scalar::Util->import('dualvar'); 1 };
23my $xs_version = $has_xs ? $List::Util::VERSION : undef;
24is( $List::Util::XS::VERSION, $xs_version, "XS VERSION");
25
26