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

use strict;
use warnings;
use FindBin qw($Bin);
use File::Spec::Functions;
use Test::More;
use lib 't/lib';

BEGIN {
    # Enable XSAccessor check
    $Class::Accessor::Grouped::hasXS = undef;
    
    require AccessorGroups;
}
 
plan skip_all => 'Class::XSAccessor not available'
    unless Class::Accessor::Grouped::_hasXS();

require( catfile($Bin, 'accessors.t') );
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
	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') );