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     # Enable XSAccessor check
  10     $Class::Accessor::Grouped::hasXS = undef;
  11
  12     require AccessorGroups;
  13 }
  14
  15 plan skip_all => 'Class::XSAccessor not available'
  16     unless Class::Accessor::Grouped::_hasXS();
  17
  18 require( catfile($Bin, 'accessors.t') );