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
|
use strict;
use warnings;
# HARNESS-NO-PRELOAD
use Test2::API;
my $initial_count;
BEGIN { $initial_count = Test2::API::test2_list_exit_callbacks() }
use Test2::Tools::Basic;
use Test2::API qw/intercept context/;
use Test2::Tools::Compare qw/array event end is like/;
use Test2::Plugin::ExitSummary;
use Test2::Plugin::ExitSummary;
use Test2::Plugin::ExitSummary;
my $post_count = Test2::API::test2_list_exit_callbacks();
is($initial_count, 0, "no hooks initially");
is($post_count, 1, "Added the hook, but only once");
my $summary = Test2::Plugin::ExitSummary->can('summary');
my $exit = 0;
my $new = 0;
like(
intercept {
my $ctx = context(level => -1);
$summary->($ctx, $exit, \$new);
$ctx->release;
},
array { event Diag => {message => 'No tests run!'}; end },
"No tests run"
);
like(
intercept {
plan 1;
my $ctx = context(level => -1);
$summary->($ctx, $exit, \$new);
$ctx->release;
},
array {
event Plan => { max => 1 };
event Diag => {message => 'No tests run!'};
event Diag => {message => 'Did not follow plan: expected 1, ran 0.'};
end
},
"No tests run, bad plan"
);
like(
intercept {
ok(1);
my $ctx = context(level => -1);
$summary->($ctx, $exit, \$new);
$ctx->release;
},
array {
event Ok => { pass => 1 };
event Diag => {message => 'Tests were run but no plan was declared and done_testing() was not seen.'};
end
},
"Tests, but no plan"
);
$exit = 123;
$new = 123;
like(
intercept {
plan 1;
ok(1);
my $ctx = context(level => -1);
$summary->($ctx, $exit, \$new);
$ctx->release;
},
array {
event Plan => { max => 1 };
event Ok => { pass => 1 };
event Diag => {message => 'Looks like your test exited with 123 after test #1.'};
end
},
"Bad exit code"
);
done_testing();
|
