lib/Test/Simple/t/filehandles.t

   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 }
  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 }