t/02-pp.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Config qw/%Config/;
   7
   8 use Test::More tests => 4;
   9
  10 BEGIN {
  11  my $re = join '|',
  12            grep defined && length,
  13             @Config{qw/myarchname archname/}, 'arch';
  14  my @inc = @INC;
  15  @INC = grep !/(?:$re)$/, @INC;
  16  require Scalar::Vec::Util;
  17  Scalar::Vec::Util->import(qw/vfill vcopy veq SVU_PP/);
  18  @INC = @inc;
  19 }
  20
  21 is(SVU_PP, 1, 'using pure perl subroutines');
  22 for (qw/vfill vcopy veq/) {
  23  no strict 'refs';
  24  is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');
  25 }