Commit | Line | Data |
9540f4e4 |
1 | use strict; |
2 | use warnings; |
3 | use FindBin qw($Bin); |
4 | use File::Spec::Functions; |
5 | use Test::More; |
6 | use lib 't/lib'; |
7 | |
8019c4d8 |
8 | BEGIN { |
9 | require Class::Accessor::Grouped; |
10 | my $xsa_ver = $Class::Accessor::Grouped::__minimum_xsa_version; |
11 | eval { |
12 | require Class::XSAccessor; |
13 | Class::XSAccessor->VERSION ($xsa_ver); |
14 | }; |
15 | plan skip_all => "Class::XSAccessor >= $xsa_ver not available" |
16 | if $@; |
17 | } |
9540f4e4 |
18 | |
28344104 |
19 | # rerun the regular 3 tests under XSAccessor |
8019c4d8 |
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, $_) ) } |
23 | } |
24 | |
25 | done_testing; |