Commit | Line | Data |
43fd88df |
1 | #!/usr/bin/perl -w |
2 | |
3 | #!perl -w |
4 | |
5 | BEGIN { |
6 | if( $ENV{PERL_CORE} ) { |
7 | chdir 't'; |
8 | @INC = ('../lib', 'lib'); |
9 | } |
10 | else { |
11 | unshift @INC, 't/lib'; |
12 | } |
13 | } |
14 | |
3e887aae |
15 | use Test::More tests => 7; |
43fd88df |
16 | use Test::Builder; |
3e887aae |
17 | use Test::Builder::NoOutput; |
43fd88df |
18 | |
19 | my $more_tb = Test::More->builder; |
43fd88df |
20 | isa_ok $more_tb, 'Test::Builder'; |
21 | |
43fd88df |
22 | is $more_tb, Test::More->builder, 'create does not interfere with ->builder'; |
23 | is $more_tb, Test::Builder->new, ' does not interfere with ->new'; |
24 | |
b1ddf169 |
25 | { |
3e887aae |
26 | my $new_tb = Test::Builder::NoOutput->create; |
b1ddf169 |
27 | |
28 | isa_ok $new_tb, 'Test::Builder'; |
29 | isnt $more_tb, $new_tb, 'Test::Builder->create makes a new object'; |
43fd88df |
30 | |
b1ddf169 |
31 | $new_tb->plan(tests => 1); |
3e887aae |
32 | $new_tb->ok(1, "a test"); |
43fd88df |
33 | |
3e887aae |
34 | is $new_tb->read, <<'OUT'; |
43fd88df |
35 | 1..1 |
3e887aae |
36 | ok 1 - a test |
43fd88df |
37 | OUT |
3e887aae |
38 | } |
43fd88df |
39 | |
3e887aae |
40 | pass("Changing output() of new TB doesn't interfere with singleton"); |