online +l=JJj"T.F Y{_I|yer#!perl -w BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; } else { unshift @INC, 't/lib'; } } use strict; use Test::Builder; use Test::Builder::NoOutput; use Test::Simple; # TB methods expect to be wrapped my $ok = sub { shift->ok(@_) }; my $plan = sub { shift->plan(@_) }; my $done_testing = sub { shift->done_testing(@_) }; my $TB = Test::Builder->new; my $test = Test::Builder::NoOutput->create; $test->$plan( tests => 3 ); local $ENV{HARNESS_ACTIVE} = 0; $test->$ok(1, 'Foo'); $TB->is_eq($test->read(), <$ok(0, 'Bar'); $TB->is_eq($test->read(), <$ok(1, 'Yar'); $test->$ok(1, 'Car'); $TB->is_eq($test->read(), <$ok(0, 'Sar'); $TB->is_eq($test->read(), <_ending(); $TB->is_eq($test->read(), <$done_testing(5); 2 0_I|Mjq؂aa*j"T~qţ5 lzd*Clq@p bѿ hO4_ub &=L*VBl(? ELF>)@@8 @ 4 4```TTyyy{{{ $$Std PtdiiiQtdRtdyyyGNUGNUi D 0]@|sD V8 VXYZQɑcY.]eOq,n "O \Cc 2<|y{aZE I%Q]hiZT/U?:h, $wA