#!./perl
BEGIN {
unless (-d 'blib') {
chdir 't' if -d 't';
@INC = '../lib';
require Config; import Config;
keys %Config; # Silence warning
if ($Config{extensions} !~ /\bList\/Util\b/) {
print "1..0 # Skip: List::Util was not built\n";
exit 0;
}
}
}
use Test::More tests => 3;
use strict;
$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
require Scalar::Util;
for my $func (qw(dualvar set_prototype weaken)) {
eval { Scalar::Util->import($func); };
like(
$@,
qr/$func is only available with the XS/,
"no pure perl $func: error raised",
);
}