4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
15 # Normalize the output whether we're running under Test::Harness or not.
16 local $ENV{HARNESS_ACTIVE} = 0;
19 use Test::Builder::NoOutput;
21 my $Test = Test::Builder->new;
24 my $tb = Test::Builder::NoOutput->create;
26 $tb->plan( tests => 1 );
32 $Test->is_eq($tb->read('out'), <<OUT);
37 $Test->is_eq($tb->read('err'), <<ERR);
38 # Failed test at $0 line 28.
39 # Looks like you failed 1 test of 1.
42 $Test->done_testing(2);