1#!perl -w 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't'; 6 @INC = ('../lib', 'lib'); 7 } 8} 9 10use lib 't/lib'; 11use Test::More tests => 1; 12use Dev::Null; 13 14tie *STDOUT, "Dev::Null" or die $!; 15 16print "not ok 1\n"; # this should not print. 17pass 'STDOUT can be mucked with'; 18 19