diff options
Diffstat (limited to 't/one-impl-fails2.t')
-rw-r--r-- | t/one-impl-fails2.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/one-impl-fails2.t b/t/one-impl-fails2.t new file mode 100644 index 0000000..444d1e8 --- /dev/null +++ b/t/one-impl-fails2.t @@ -0,0 +1,28 @@ +use strict; +use warnings; + +use Test::More 0.88; + +{ + package T; + + use strict; + use warnings; + + use lib 't/lib'; + + use Module::Implementation; + my $loader = Module::Implementation::build_loader_sub( + implementations => [ 'Impl1', 'ImplFails1' ], + symbols => [qw( return_42 )], + ); + + $loader->(); +} + +{ + ok( T->can('return_42'), 'T package has a return_42 sub' ); + ok( !T->can('return_package'), 'T package has a return_package sub' ); +} + +done_testing(); |