diff options
Diffstat (limited to 't/90-impl-selection.t')
-rw-r--r-- | t/90-impl-selection.t | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/t/90-impl-selection.t b/t/90-impl-selection.t deleted file mode 100644 index 4457dbe..0000000 --- a/t/90-impl-selection.t +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; - -sub clear_load { - delete $Package::{'Stash::'}; - delete $INC{'Package/Stash.pm'}; - delete $INC{'Package/Stash/PP.pm'}; - delete $INC{'Package/Stash/XS.pm'}; -} - -my $has_xs; - -{ - $has_xs = eval "require Package::Stash::XS; 1"; - clear_load; -} - -{ - require Package::Stash; - warn $Package::Stash::IMPLEMENTATION; - is($Package::Stash::IMPLEMENTATION, $has_xs ? 'XS' : 'PP', - "autodetected properly"); - can_ok('Package::Stash', 'new', "and got some methods"); - clear_load; -} - -{ - $ENV{PACKAGE_STASH_IMPLEMENTATION} = 'PP'; - require Package::Stash; - is($Package::Stash::IMPLEMENTATION, 'PP', - "autodetected properly"); - can_ok('Package::Stash', 'new', "and got some methods"); - clear_load; -} - -SKIP: { - skip "no XS", 2 unless $has_xs; - $ENV{PACKAGE_STASH_IMPLEMENTATION} = 'XS'; - require Package::Stash; - is($Package::Stash::IMPLEMENTATION, 'XS', - "autodetected properly"); - can_ok('Package::Stash', 'new', "and got some methods"); - clear_load; -} - -{ - $Package::Stash::IMPLEMENTATION = 'PP'; - require Package::Stash; - is($Package::Stash::IMPLEMENTATION, 'PP', - "autodetected properly"); - can_ok('Package::Stash', 'new', "and got some methods"); - clear_load; -} - -SKIP: { - skip "no XS", 2 unless $has_xs; - $Package::Stash::IMPLEMENTATION = 'XS'; - require Package::Stash; - is($Package::Stash::IMPLEMENTATION, 'XS', - "autodetected properly"); - can_ok('Package::Stash', 'new', "and got some methods"); - clear_load; -} - -done_testing; |