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', 'Impl2' ],
        symbols         => ['return_42'],
    );
    $ENV{T_IMPLEMENTATION} = 'Impl2';
    $loader->();
}
{
    ok( T->can('return_42'), 'T package has a return_42 sub' );
    ok(
        !T->can('return_package'),
        'T package does not have return_package sub - only copied requested symbols'
    );
    is( T::return_42(), 42, 'T::return_42 work as expected' );
    is(
        Module::Implementation::implementation_for('T'),
        'Impl2',
        'T::_implementation returns implementation set in ENV'
    );
}
done_testing();