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
|
#!perl
use strict;
use warnings;
use Perl::PrereqScanner;
use Try::Tiny;
use Test::More;
sub module_prereq_is {
my ($module_name, $want, $comment) = @_;
$comment ||= $module_name;
my $scanner = Perl::PrereqScanner->new;
# scan_ppi_document
try {
my $result = $scanner->scan_module( $module_name );
is_deeply($result->as_string_hash, $want, $comment);
} catch {
fail("scanner died on: $comment");
diag($_);
};
}
# Test with ourself!
module_prereq_is(
'Perl::PrereqScanner',
{
'CPAN::Meta::Requirements' => '2.124',
'List::Util' => 0,
'Module::Path' => 0,
'Moose' => 0,
'PPI' => '1.215',
'Params::Util' => 0,
'Perl::PrereqScanner::Scanner' => 0,
'String::RewritePrefix' => '0.005',
'namespace::autoclean' => 0,
'perl' => '5.008',
'strict' => 0,
'warnings' => 0,
},
);
done_testing;
|
