A better way to check for pure-Perl versions

[perl/modules/Scalar-Vec-Util.git] / t / 02-pp.t

diff --git a/t/02-pp.t b/t/02-pp.t
index 92ee0c865a27691ea90b9aee4d80ba9cf0c20d64..dea9f2b4977d1e148ab636dcad684e189fe377ad 100644 (file)
--- a/t/02-pp.t
+++ b/t/02-pp.t
@@ -3,9 +3,20 @@
 use strict;
 use warnings;
 
+use Config qw/%Config/;
+
 use Test::More tests => 4;
 
-BEGIN { @INC = grep !/arch$/, @INC }
+BEGIN {
+ require XSLoader;
+ my $xsloader_load_orig = \&XSLoader::load;
+ no warnings 'redefine';
+ *XSLoader::load = sub {
+  die if $_[0] eq 'Scalar::Vec::Util';
+  goto $xsloader_load_orig;
+ };
+}
+
 use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
 
 is(SVU_PP, 1, 'using pure perl subroutines');