From b808141b894ad538db75a7067e0199cbfe6337a9 Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Sun, 24 Aug 2014 16:36:19 +0000 Subject: Module-Implementation-0.09 --- t/one-impl-fails1.t | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 t/one-impl-fails1.t (limited to 't/one-impl-fails1.t') diff --git a/t/one-impl-fails1.t b/t/one-impl-fails1.t new file mode 100644 index 0000000..1df94a0 --- /dev/null +++ b/t/one-impl-fails1.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 => [ 'ImplFails1', 'Impl1' ], + 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(); -- cgit v1.2.1