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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
select(STDERR); $|=1;
select(STDOUT); $|=1;
use Test::More;
use lib 't/lib';
use MockCPANDist;
use Helper;
use Frontend;
#--------------------------------------------------------------------------#
# Fixtures
#--------------------------------------------------------------------------#
my $mock_dist = MockCPANDist->new(
pretty_id => "JOHNQP/Bogus-Module-1.23.tar.gz",
prereq_pm => {
requires => { 'File::Spec' => 0 },
},
author_id => "JOHNQP",
author_fullname => "John Q. Public",
);
my @cases = (
{
label => "Build -j2",
phase => "make",
command => "Build -j2",
output => "Output from './Build -j2'\n",
exit_value => 1 << 8,
result => {
grade => "unknown"
},
after => {
grade => "discard",
grade_msg => "-j is not a valid option for Module::Build (upgrade your CPAN.pm)"
}
},
{
label => "Build -j3",
phase => "make",
command => "Build -j3",
output => "Output from './Build -j3'\n",
exit_value => 1 << 8,
result => {
grade => "unknown"
},
after => {
grade => "discard",
grade_msg => "-j is not a valid option for Module::Build (upgrade your CPAN.pm)"
}
},
{
label => "makefile out of date",
phase => "make",
command => "make",
output => "blah blah\nMakefile out-of-date with respect to Makefile.PL\nblah blah\n",
exit_value => 1 << 8,
result => {
grade => "unknown"
},
after => {
grade => "discard",
grade_msg => "Makefile out-of-date",
}
},
);
#--------------------------------------------------------------------------#
# plan
#--------------------------------------------------------------------------#
plan tests => 2 + test_fake_config_plan() + 2 * @cases;
#--------------------------------------------------------------------------#
# tests
#--------------------------------------------------------------------------#
require_ok('CPAN::Reporter');
require_ok('CPAN::Reporter::History');
test_fake_config();
for my $c ( @cases ) {
# create a fake result to force send_duplicates prompt
my $dummy_result = CPAN::Reporter::_init_result(
$c->{phase}, $mock_dist, $c->{command}, $c->{output}, $c->{exit_value},
);
$dummy_result->{grade} = $c->{result}{grade};
$dummy_result->{grade_msg} = "test message";
CPAN::Reporter::_downgrade_known_causes( $dummy_result );
is( $dummy_result->{grade}, $c->{after}{grade},
"$c->{label}: grade is '$c->{after}{grade}'"
);
is( $dummy_result->{grade_msg}, $c->{after}{grade_msg},
"$c->{label}: grade_msg is correct"
);
}
|
