Use Class::XSAccessor if available RT#45577, AGRUNDMA

[p5sagit/Class-Accessor-Grouped.git] / t / accessors.t

diff --git a/t/accessors.t b/t/accessors.t
index 1703e12..ddd5aa4 100644 (file)
--- a/t/accessors.t
+++ b/t/accessors.t
@@ -2,9 +2,15 @@ use Test::More tests => 62;
 use strict;
 use warnings;
 use lib 't/lib';
-use AccessorGroups;
 use Sub::Identify qw/sub_name sub_fullname/;;
 
+BEGIN {
+    # Disable XSAccessor to test pure-Perl accessors
+    $Class::Accessor::Grouped::hasXS = 0;
+    
+    require AccessorGroups;
+}
+
 my $class = AccessorGroups->new;
 
 {
@@ -90,3 +96,6 @@ foreach (qw/lr1 lr2/) {
     # alias gets same as name
     is($class->$name, 'd');
 };
+
+1;
+