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  require XSLoader;
  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;
  17  };
  18 }
  19
  20 use Scalar::Vec::Util qw<vfill vcopy veq SVU_PP>;
  21
  22 is SVU_PP, 1, 'using pure perl subroutines';
  23 for (qw<vfill vcopy veq>) {
  24  no strict 'refs';
  25  is *{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp';
  26 }