File: one-impl-fails1.t

package info (click to toggle)
libmodule-implementation-perl 0.09-1.1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 248 kB
  • sloc: perl: 423; makefile: 2
file content (28 lines) | stat: -rw-r--r-- 509 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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();