2 # $Id: /mirror/googlecode/test-more/t/note.t 60308 2008-09-07T22:36:18.175234Z schwern $
5 if( $ENV{PERL_CORE} ) {
7 @INC = ('../lib', 'lib');
10 unshift @INC, 't/lib';
19 use Test::More tests => 2;
22 my $test = Test::More->builder;
24 my $output = tie *FAKEOUT, "TieOut";
25 my $fail_output = tie *FAKEERR, "TieOut";
26 $test->output (*FAKEOUT);
27 $test->failure_output(*FAKEERR);
33 is $output->read, "# foo\n";
34 is $fail_output->read, '';