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