diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-21 13:43:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-21 13:43:08 +0000 |
| commit | a25fc364915c92ad0e2308e95b1b8437cc4068c1 (patch) | |
| tree | ef440e2fc1bf8b6642e8c34f86e1b1bb582ab583 /lib/Test | |
| parent | 71373de2ef274fa691ff9e2dcbcce2686e2efe14 (diff) | |
| download | perl-a25fc364915c92ad0e2308e95b1b8437cc4068c1.tar.gz | |
Oops.
p4raw-id: //depot/perl@13161
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Simple/t/filehandles.t | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lib/Test/Simple/t/filehandles.t b/lib/Test/Simple/t/filehandles.t index 8bd0abeaee..3b3c553dc7 100644 --- a/lib/Test/Simple/t/filehandles.t +++ b/lib/Test/Simple/t/filehandles.t @@ -12,17 +12,3 @@ 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 } |