okay, working implementation selection

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;