lib/Test/Simple/t/filehandles.t

   1 #!perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = '../lib';
   7     }
   8 }
   9
  10 use Test::More tests => 1;
  11
  12 tie *STDOUT, "Dev::Null" or die $!;
  13
  14 print "not ok 1\n";     # this should not print.
  15 pass 'STDOUT can be mucked with';
  16
  17
  18 package Dev::Null;
  19
  20 sub TIEHANDLE { bless {} }
  21 sub PRINT { 1 }