Commit | Line | Data |
---|---|---|
33459055 | 1 | #!perl -w |
ccbd73a4 | 2 | # $Id: /mirror/googlecode/test-more/t/filehandles.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $ |
33459055 | 3 | |
a9153838 | 4 | BEGIN { |
5 | if( $ENV{PERL_CORE} ) { | |
6 | chdir 't'; | |
45140536 | 7 | @INC = ('../lib', 'lib'); |
a9153838 | 8 | } |
9 | } | |
10 | ||
04955c14 | 11 | use lib 't/lib'; |
33459055 | 12 | use Test::More tests => 1; |
04955c14 | 13 | use Dev::Null; |
33459055 | 14 | |
15 | tie *STDOUT, "Dev::Null" or die $!; | |
16 | ||
17 | print "not ok 1\n"; # this should not print. | |
18 | pass 'STDOUT can be mucked with'; | |
19 |