X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessors.t;h=49c6bea495eb53c40c21f8f06d64f89e73bdaac3;hb=8019c4d86e5cea699b25d7eeb30c6fb7550f7298;hp=edd11cace5d12426a32c23e245c5c4fe7c10f80b;hpb=18026fd59c6721f71469134d1ef767755b265386;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/t/accessors.t b/t/accessors.t
index edd11ca..49c6bea 100644
--- a/t/accessors.t
+++ b/t/accessors.t
@@ -2,14 +2,19 @@ use Test::More tests => 62;
 use strict;
 use warnings;
 use lib 't/lib';
-use Sub::Identify qw/sub_name sub_fullname/;;
+use Sub::Identify qw/sub_name sub_fullname/;
 
+# we test the pure-perl versions only, but allow overrides
+# from the accessor_xs test-umbrella
+# Also make sure a rogue envvar will not interfere with
+# things
 BEGIN {
-    # Disable XSAccessor to test pure-Perl accessors
-    $Class::Accessor::Grouped::hasXS = 0;
-    
-    require AccessorGroups;
-}
+    $Class::Accessor::Grouped::USE_XS = 0
+        unless defined $Class::Accessor::Grouped::USE_XS;
+    $ENV{CAG_USE_XS} = 1;
+};
+
+use AccessorGroups;
 
 my $class = AccessorGroups->new;
 
@@ -98,4 +103,5 @@ foreach (qw/lr1 lr2/) {
     is($class->$name, 'd');
 };
 
+# important
 1;