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
|
#
# $Id: 06_all_files_no_breakpoints_ok.t 163 2004-12-31 05:07:16Z james $
#
BEGIN {
use Test::Tester 0.09;
use Test::More;
our $tests = 27;
eval "use Test::NoWarnings";
$tests++ unless( $@ );
plan tests => $tests;
chdir 't' if -d 't';
use lib '../lib', '../blib/lib';
}
use Test::NoBreakpoints ':all';
# test the tester for failure
check_tests(
sub { all_files_no_breakpoints_ok( sort(all_perl_files('.')) ) },
[
{
ok => 1,
name => 'no breakpoint test of ./01_use.t',
},
{
ok => 1,
name => 'no breakpoint test of ./02_pod.t',
},
{
ok => 1,
name => 'no breakpoint test of ./04_all_perl_files.t',
},
{
ok => 0,
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,
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 => 1,
name => 'no breakpoint test of ./07_deprecated_warnings.t',
},
{
ok => 1,
name => 'no breakpoint test of ./08_deprecated.t',
},
{
ok => 0,
name => 'no breakpoint test of ./baz/foo.t',
diag => 'breakpoint found in ./baz/foo.t: $DB::signal = 1' . "\n",
},
{
ok => 0,
name => 'no breakpoint test of ./baz/gzonk/foo.pl',
diag => 'breakpoint found in ./baz/gzonk/foo.pl: $DB::single = 2' . "\n",
},
{
ok => 1,
name => 'no breakpoint test of ./baz/quux/Foo.pm',
},
],
'all_files_no_breakpoints_ok finds correct breakpoints',
);
#
# EOF
|
