[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / filehandles.t

#!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 }
#!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 }
Commit	Line	Data
33459055	1	#!perl -w
	2
	3	use Test::More tests => 1;
	4
	5	tie *STDOUT, "Dev::Null" or die $!;
	6
	7	print "not ok 1\n"; # this should not print.
	8	pass 'STDOUT can be mucked with';
	9
	10
	11	package Dev::Null;
	12
	13	sub TIEHANDLE { bless {} }
	14	sub PRINT { 1 }
4bd4e70a	15	#!perl -w
	16
	17	use Test::More tests => 1;
	18
	19	tie *STDOUT, "Dev::Null" or die $!;
	20
	21	print "not ok 1\n"; # this should not print.
	22	pass 'STDOUT can be mucked with';
	23
	24
	25	package Dev::Null;
	26
	27	sub TIEHANDLE { bless {} }
	28	sub PRINT { 1 }