diff options
author | Carlos <carlos@multi> | 2012-12-29 18:06:13 +0800 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-01-03 21:33:06 -0600 |
commit | ff581360d8d690879a1ece4e004acc1e3625f7dc (patch) | |
tree | a44dae38b4bedc18047f74e17943b5cf4a6747c4 /t/impl-selection/env.t | |
parent | 386514ec675d3879c28b3f1164974b049c552a5e (diff) | |
download | package-stash-ff581360d8d690879a1ece4e004acc1e3625f7dc.tar.gz package-stash-ff581360d8d690879a1ece4e004acc1e3625f7dc.zip |
Replaces internal logic to select implementation with Module::Implementation
Diffstat (limited to 't/impl-selection/env.t')
-rw-r--r-- | t/impl-selection/env.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/impl-selection/env.t b/t/impl-selection/env.t index 3369488..c050267 100644 --- a/t/impl-selection/env.t +++ b/t/impl-selection/env.t @@ -26,4 +26,14 @@ SKIP: { can_ok('Package::Stash', 'new'); } +{ + delete $Package::{'Stash::'}; + delete $INC{'Package/Stash.pm'}; + set_impl('INVALID'); + $ENV{PACKAGE_STASH_IMPLEMENTATION} = 'PP'; + require Package::Stash; + is(get_impl, 'PP', '$ENV takes precedence over $Package::Stash::IMPLEMENTATION'); + can_ok('Package::Stash', 'new'); +} + done_testing; |