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