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
|
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../";
use Test::More;
use t::Util;
$t::Util::PARSERS = [qw/:default/];
test('default', <<'END', {Moose => 0, Foo => 0, 'Test::More' => 0});
use Test::More;
use Moose;
extends qw/Foo/;
done_testing;
END
$t::Util::PARSERS = [qw/:default -Moose/];
test('exclude with minus', <<'END', {Moose => 0});
use Moose;
extends qw/Foo/; # this should not be recognized
END
$t::Util::PARSERS = [qw/:default TestMore/];
test('extra parser', <<'END', {'Test::More' => 0.88});
use Test::More;
done_testing;
END
$t::Util::PARSERS = [qw/:default Perl::PrereqScanner::NotQuiteLite::Parser::TestMore/];
test('full qualified extra parser', <<'END', {'Test::More' => 0.88});
use Test::More;
done_testing;
END
$t::Util::PARSERS = [qw/:default +Perl::PrereqScanner::NotQuiteLite::Parser::TestMore/];
test('full qualified extra parser with plus', <<'END', {'Test::More' => 0.88});
use Test::More;
done_testing;
END
done_testing;
|
