t/accessors_xs.t

   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
   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 }
  18
  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, $_) ) }
  23 }
  24
  25 done_testing;