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