[gitmo/Package-Stash.git] / t / impl-selection / choice.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

my $has_xs = eval "require Package::Stash::XS; 1";

require Package::Stash;

no warnings 'once';

my $expected = $has_xs ? 'XS' : 'PP';
is($Package::Stash::IMPLEMENTATION, $expected,
   "autodetected properly: $expected");
can_ok('Package::Stash', 'new');

done_testing;
Commit	Line	Data
a5129e53	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More;
	5
	6	my $has_xs = eval "require Package::Stash::XS; 1";
	7
	8	require Package::Stash;
	9
	10	no warnings 'once';
	11
	12	my $expected = $has_xs ? 'XS' : 'PP';
	13	is($Package::Stash::IMPLEMENTATION, $expected,
	14	"autodetected properly: $expected");
	15	can_ok('Package::Stash', 'new');
	16
	17	done_testing;