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