Permalink
Browse files

Fix implementation tests

  • Loading branch information...
autarch committed Feb 8, 2012
1 parent c483f54 commit 151fd639c623db4aca8e29bd01b30b64251bce0b
Showing with 6 additions and 2 deletions.
  1. +3 −1 xt/release/pp-is-loaded.t
  2. +3 −1 xt/release/xs-is-loaded.t
@@ -8,10 +8,12 @@ BEGIN {
$ENV{PV_WARN_FAILED_IMPLEMENTATION} = 1;
}
+use Module::Implementation 0.04 ();
use Params::Validate;
is(
- Params::Validate::_implementation(), 'PP',
+ Module::Implementation::implementation_for('Params::Validate'),
+ 'PP',
'PP implementation is loaded when env var is set'
);
@@ -5,10 +5,12 @@ use Test::More;
BEGIN { $ENV{PV_WARN_FAILED_IMPLEMENTATION} = 1 }
+use Module::Implementation 0.04 ();
use Params::Validate;
is(
- Params::Validate::_implementation(), 'XS',
+ Module::Implementation::implementation_for('Params::Validate'),
+ 'XS',
'XS implementation is loaded by default'
);

0 comments on commit 151fd63

Please sign in to comment.