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
|
BEGIN {
use Test::Tester 0.09;
use Test::More;
our $tests = 46;
eval "use Test::NoWarnings";
$tests++ unless( $@ );
plan tests => $tests;
chdir 't' if -d 't';
use lib '../lib', '../blib/lib';
}
use Test::NoBreakpoints ':all';
my $checklist = [
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./00-load.t',
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./01_use.t',
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./02_pod.t',
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./04_all_perl_files.t',
},
{
ok => 0,
depth => 2,
name => 'no breakpoint test of ./05_no_breakpoints_ok.t',
diag => 'breakpoint found in ./05_no_breakpoints_ok.t: $DB::signal =1' . "\n",
},
{
ok => 0,
depth => 2,
name => 'no breakpoint test of ./06_all_files_no_breakpoints_ok.t',
diag => 'breakpoint found in ./06_all_files_no_breakpoints_ok.t: $DB::signal =1' . "\n",
},
{
ok => 0,
depth => 2,
name => 'no breakpoint test of ./baz/foo.t',
diag => 'breakpoint found in ./baz/foo.t: $DB::signal = 1' . "\n",
},
{
ok => 0,
depth => 2,
name => 'no breakpoint test of ./baz/gzonk/foo.pl',
diag => 'breakpoint found in ./baz/gzonk/foo.pl: $DB::single = 2' . "\n",
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./baz/quux/Foo.pm',
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./release-kwalitee.t',
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./release-no-tabs.t',
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./release-pod-coverage.t',
},
{
ok => 1,
depth => 2,
name => 'no breakpoint test of ./release-pod-syntax.t',
},
];
# test the tester for failure
check_tests(
sub { all_files_no_breakpoints_ok( sort(all_perl_files('.')) ) },
$checklist,
'all_files_no_breakpoints_ok finds correct breakpoints',
);
|
