1#!/usr/bin/perl -w
2
3#!perl -w
4
5BEGIN {
6    if( $ENV{PERL_CORE} ) {
7        chdir 't';
8        @INC = ('../lib', 'lib');
9    }
10    else {
11        unshift @INC, 't/lib';
12    }
13}
14
15use Test::More tests => 8;
16use Test::Builder;
17
18my $more_tb = Test::More->builder;
19isa_ok $more_tb, 'Test::Builder';
20
21is $more_tb, Test::More->builder, 'create does not interfere with ->builder';
22is $more_tb, Test::Builder->new,  '       does not interfere with ->new';
23
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';
29
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}
36
37pass("Changing output() of new TB doesn't interfere with singleton");
38
39ok open FILE, "some_file";
40is join("", <FILE>), <<OUT;
411..1
42ok 1
43OUT
44
45close FILE;
46