4 use File::Spec::Functions;
9 require Class::Accessor::Grouped;
10 my $xsa_ver = $Class::Accessor::Grouped::__minimum_xsa_version;
12 require Class::XSAccessor;
13 Class::XSAccessor->VERSION ($xsa_ver);
15 plan skip_all => "Class::XSAccessor >= $xsa_ver not available"
19 # rerun the regular 3 tests under XSAccessor
20 $Class::Accessor::Grouped::USE_XS = 1;
21 for (qw/accessors.t accessors_ro.t accessors_wo.t/) {
22 subtest "$_ with USE_XS" => sub { require( catfile($Bin, $_) ) }