okay, working implementation selection

1 files changed, 29 insertions, 0 deletions

diff --git a/t/impl-selection/02-env.t b/t/impl-selection/02-env.t
new file mode 100644
index 0000000..3369488
--- /dev/null
+++ b/t/impl-selection/02-env.t
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+# XXX: work around dumb core segfault bug when you delete stashes
+sub get_impl { eval '$Package::Stash::IMPLEMENTATION' }
+sub set_impl { eval '$Package::Stash::IMPLEMENTATION = "' . $_[0] . '"' }
+
+{
+    $ENV{PACKAGE_STASH_IMPLEMENTATION} = 'PP';
+    require Package::Stash;
+    is(get_impl, 'PP', "autodetected properly: PP");
+    can_ok('Package::Stash', 'new');
+}
+
+delete $Package::{'Stash::'};
+delete $INC{'Package/Stash.pm'};
+delete $INC{'Package/Stash/PP.pm'};
+
+SKIP: {
+    skip "no XS", 2 unless eval "require Package::Stash::XS; 1";
+    $ENV{PACKAGE_STASH_IMPLEMENTATION} = 'XS';
+    require Package::Stash;
+    is(get_impl, 'XS', "autodetected properly: XS");
+    can_ok('Package::Stash', 'new');
+}
+
+done_testing;