2 # $Id: /mirror/googlecode/test-more/t/filehandles.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
5 if( $ENV{PERL_CORE} ) {
7 @INC = ('../lib', 'lib');
12 use Test::More tests => 1;
15 tie *STDOUT, "Dev::Null" or die $!;
17 print "not ok 1\n"; # this should not print.
18 pass 'STDOUT can be mucked with';