vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/filehandles.t

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