lib/Test/Simple/t/filehandles.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!perl -w

use Test::More tests => 1;

tie *STDOUT, "Dev::Null" or die $!;

print "not ok 1\n";     # this should not print.
pass 'STDOUT can be mucked with';


package Dev::Null;

sub TIEHANDLE { bless {} }
sub PRINT { 1 }