6 use Config qw/%Config/;
8 use Test::More tests => 4;
12 grep defined && length,
13 @Config{qw/myarchname archname/}, 'arch';
15 @INC = grep !/(?:$re)$/, @INC;
16 require Scalar::Vec::Util;
17 Scalar::Vec::Util->import(qw/vfill vcopy veq SVU_PP/);
21 is(SVU_PP, 1, 'using pure perl subroutines');
22 for (qw/vfill vcopy veq/) {
24 is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');