File: filehandles.t

package info (click to toggle)
libtest-simple-perl 0.41-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 304 kB
  • ctags: 85
  • sloc: perl: 1,428; makefile: 33
file content (14 lines) | stat: -rw-r--r-- 224 bytes parent folder | download 
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 }