6 use Test::More tests => 4;
8 BEGIN { @INC = grep !/arch$/, @INC }
9 use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
11 is(SVU_PP, 1, 'using pure perl subroutines');
12 for (qw/vfill vcopy veq/) {
14 is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');