diff options
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; |