6 use Config qw/%Config/;
8 use Test::More tests => 4;
12 my $xsloader_load_orig = \&XSLoader::load;
13 no warnings 'redefine';
14 *XSLoader::load = sub {
15 die if $_[0] eq 'Scalar::Vec::Util';
16 goto $xsloader_load_orig;
20 use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
22 is(SVU_PP, 1, 'using pure perl subroutines');
23 for (qw/vfill vcopy veq/) {
25 is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');