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 strict; 14*5759b3d2Safresh1 15*5759b3d2Safresh1# Normalize the output whether we're running under Test::Harness or not. 16*5759b3d2Safresh1local $ENV{HARNESS_ACTIVE} = 0; 17*5759b3d2Safresh1 18*5759b3d2Safresh1use Test::Builder; 19*5759b3d2Safresh1use Test::Builder::NoOutput; 20*5759b3d2Safresh1 21*5759b3d2Safresh1# TB methods expect to be wrapped 22*5759b3d2Safresh1my $ok = sub { shift->ok(@_) }; 23*5759b3d2Safresh1my $plan = sub { shift->plan(@_) }; 24*5759b3d2Safresh1my $done_testing = sub { shift->done_testing(@_) }; 25*5759b3d2Safresh1 26*5759b3d2Safresh1my $Test = Test::Builder->new; 27*5759b3d2Safresh1 28*5759b3d2Safresh1{ 29*5759b3d2Safresh1 my $tb = Test::Builder::NoOutput->create; 30*5759b3d2Safresh1 31*5759b3d2Safresh1 $tb->$plan( tests => 1 ); 32*5759b3d2Safresh1 33*5759b3d2Safresh1#line 28 34*5759b3d2Safresh1 $tb->$ok(0); 35*5759b3d2Safresh1 $tb->_ending; 36*5759b3d2Safresh1 37*5759b3d2Safresh1 $Test->is_eq($tb->read('out'), <<OUT); 38*5759b3d2Safresh11..1 39*5759b3d2Safresh1not ok 1 40*5759b3d2Safresh1OUT 41*5759b3d2Safresh1 42*5759b3d2Safresh1 $Test->is_eq($tb->read('err'), <<ERR); 43*5759b3d2Safresh1# Failed test at $0 line 28. 44*5759b3d2Safresh1# Looks like you failed 1 test of 1. 45*5759b3d2Safresh1ERR 46*5759b3d2Safresh1 47*5759b3d2Safresh1 $Test->$done_testing(2); 48*5759b3d2Safresh1} 49