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 | |
15 | use Test::More tests => 8; |
16 | use Test::Builder; |
17 | |
18 | my $more_tb = Test::More->builder; |
43fd88df |
19 | isa_ok $more_tb, 'Test::Builder'; |
20 | |
43fd88df |
21 | is $more_tb, Test::More->builder, 'create does not interfere with ->builder'; |
22 | is $more_tb, Test::Builder->new, ' does not interfere with ->new'; |
23 | |
b1ddf169 |
24 | { |
25 | my $new_tb = Test::Builder->create; |
26 | |
27 | isa_ok $new_tb, 'Test::Builder'; |
28 | isnt $more_tb, $new_tb, 'Test::Builder->create makes a new object'; |
43fd88df |
29 | |
b1ddf169 |
30 | $new_tb->output("some_file"); |
31 | END { 1 while unlink "some_file" } |
32 | |
33 | $new_tb->plan(tests => 1); |
34 | $new_tb->ok(1); |
35 | } |
43fd88df |
36 | |
37 | pass("Changing output() of new TB doesn't interfere with singleton"); |
38 | |
39 | ok open FILE, "some_file"; |
40 | is join("", <FILE>), <<OUT; |
41 | 1..1 |
42 | ok 1 |
43 | OUT |
44 | |
45 | close FILE; |