summaryrefslogtreecommitdiffstats
path: root/t/90-impl-selection.t
diff options
context:
space:
mode:
Diffstat (limited to 't/90-impl-selection.t')
-rw-r--r--t/90-impl-selection.t67
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;