Commit | Line | Data |
3e887aae |
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
45d8b36e |
4 | BEGIN { |
5 | if( $ENV{PERL_CORE} ) { |
6 | chdir 't'; |
7 | @INC = ('../lib', 'lib'); |
8 | } |
9 | else { |
10 | unshift @INC, 't/lib'; |
11 | } |
12 | } |
3e887aae |
13 | |
14 | use Test::Builder; |
15 | use Test::Builder::NoOutput; |
16 | |
17 | my $tb = Test::Builder::NoOutput->create; |
18 | |
19 | { |
20 | # Normalize test output |
21 | local $ENV{HARNESS_ACTIVE}; |
22 | |
23 | $tb->ok(1); |
24 | $tb->ok(1); |
25 | $tb->ok(1); |
26 | |
27 | #line 24 |
28 | $tb->done_testing(3); |
29 | $tb->done_testing; |
30 | $tb->done_testing; |
31 | } |
32 | |
33 | my $Test = Test::Builder->new; |
34 | $Test->plan( tests => 1 ); |
35 | $Test->level(0); |
36 | $Test->is_eq($tb->read, <<"END", "multiple done_testing"); |
37 | ok 1 |
38 | ok 2 |
39 | ok 3 |
40 | 1..3 |
41 | not ok 4 - done_testing() was already called at $0 line 24 |
42 | # Failed test 'done_testing() was already called at $0 line 24' |
43 | # at $0 line 25. |
44 | not ok 5 - done_testing() was already called at $0 line 24 |
45 | # Failed test 'done_testing() was already called at $0 line 24' |
46 | # at $0 line 26. |
47 | END |