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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/bin/perl -w
use strict;
use Test::More;
use Test::Deep;
use Test::NoWarnings;
use Module::ExtractUse;
my @tests=
(
#1
['require_module("Some::Module");', [qw(Some::Module)], undef, [qw(Some::Module)]],
['Module::Runtime::require_module("Some::Module");', [qw(Some::Module)], undef, [qw(Some::Module)]],
['use_module("Some::Module");', [qw(Some::Module)], undef, [qw(Some::Module)]],
['Module::Runtime::use_module("Some::Module");', [qw(Some::Module)], undef, [qw(Some::Module)]],
['use_module("Some::Module", 1.23);', [qw(Some::Module)], undef, [qw(Some::Module)]],
['Module::Runtime::use_module("Some::Module", 1.23);', [qw(Some::Module)], undef, [qw(Some::Module)]],
['use_package_optimistically("Some::Module");', [qw(Some::Module)], undef, [qw(Some::Module)]],
['Module::Runtime::use_package_optimistically("Some::Module");', [qw(Some::Module)], undef, [qw(Some::Module)]],
['use_package_optimistically("Some::Module", 1.23);', [qw(Some::Module)], undef, [qw(Some::Module)]],
['Module::Runtime::use_package_optimistically("Some::Module", 1.23);', [qw(Some::Module)], undef, [qw(Some::Module)]],
['$foo->require_module("Some::Module");', undef, undef, undef ],
['$foo->use_module("Some::Module");', undef, undef, undef ],
['$foo->use_package_optimistically("Some::Module");', undef, undef, undef ],
['Other::Namespace::require_module("Some::Module");', undef, undef, undef ],
['use_module("Some::Module", "NotAVersion");', undef, undef, undef ],
['use_module("Some::Module", v1.23, "OtherArg");', undef, undef, undef ],
['use_module($Some::Variable);', undef, undef, undef ],
);
plan tests => (scalar @tests)*3+1;
foreach my $t (@tests) {
my ($code, @expected)=@$t;
my $p=Module::ExtractUse->new;
my $used = $p->extract_use(\$code);
my @used = (
$p->extract_use(\$code)->arrayref || undef,
$p->extract_use(\$code)->arrayref_in_eval || undef,
$p->extract_use(\$code)->arrayref_out_of_eval || undef,
);
for(my $i = 0; $i < @used; ++$i) {
if (ref($expected[$i]) eq 'ARRAY') {
cmp_bag($used[$i]||[],$expected[$i],$i.": ".$code);
} elsif (!defined $expected[$i]) {
is(undef,$used[$i],$i.": ".$code);
} else {
is($used[$i],$expected[$i],$i.": ".$code);
}
}
}
|
