add core boilerplate to three new Test::Simple tests
[perl.git] / lib / Test / Simple / t / Builder / done_testing_double.t
1 #!/usr/bin/perl -w
2
3 use strict;
4 BEGIN {
5     if( $ENV{PERL_CORE} ) {
6         chdir 't';
7         @INC = ('../lib', 'lib');
8     }
9     else {
10         unshift @INC, 't/lib';
11     }
12 }
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