From ff581360d8d690879a1ece4e004acc1e3625f7dc Mon Sep 17 00:00:00 2001
From: Carlos <carlos@multi>
Date: Sat, 29 Dec 2012 18:06:13 +0800
Subject: Replaces internal logic to select implementation with
 Module::Implementation

---
 t/impl-selection/env.t | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 't/impl-selection/env.t')

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;
-- 
cgit v1.2.3-54-g00ecf