t/02-pp.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7
   8 BEGIN { @INC = grep !/arch$/, @INC }
   9 use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
  10
  11 is(SVU_PP, 1, 'using pure perl subroutines');
  12 for (qw/vfill vcopy veq/) {
  13  no strict 'refs';
  14  is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');
  15 }