d696384b28f2b23c359ca9480abde31de905b359
[perl.git] / lib / Test / Simple / t / Builder / done_testing_double.t
1 #!/usr/bin/perl -w
2
3 use strict;
4 use lib 't/lib';
5
6 use Test::Builder;
7 use Test::Builder::NoOutput;
8
9 my $tb = Test::Builder::NoOutput->create;
10
11 {
12     # Normalize test output
13     local $ENV{HARNESS_ACTIVE};
14
15     $tb->ok(1);
16     $tb->ok(1);
17     $tb->ok(1);
18
19 #line 24
20     $tb->done_testing(3);
21     $tb->done_testing;
22     $tb->done_testing;
23 }
24
25 my $Test = Test::Builder->new;
26 $Test->plan( tests => 1 );
27 $Test->level(0);
28 $Test->is_eq($tb->read, <<"END", "multiple done_testing");
29 ok 1
30 ok 2
31 ok 3
32 1..3
33 not ok 4 - done_testing() was already called at $0 line 24
34 #   Failed test 'done_testing() was already called at $0 line 24'
35 #   at $0 line 25.
36 not ok 5 - done_testing() was already called at $0 line 24
37 #   Failed test 'done_testing() was already called at $0 line 24'
38 #   at $0 line 26.
39 END