t/impl-selection/choice.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5
   6 my $has_xs = eval "require Package::Stash::XS; 1";
   7
   8 require Package::Stash;
   9
  10 no warnings 'once';
  11
  12 my $expected = $has_xs ? 'XS' : 'PP';
  13 is($Package::Stash::IMPLEMENTATION, $expected,
  14    "autodetected properly: $expected");
  15 can_ok('Package::Stash', 'new');
  16
  17 done_testing;