git.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/no_header.t

   1 BEGIN {
   2     if( $ENV{PERL_CORE} ) {
   3         chdir 't';
   4         @INC = '../lib';
   5     }
   6 }
   7
   8 use Test::Builder;
   9
  10 # STDOUT must be unbuffered else our prints might come out after
  11 # Test::More's.
  12 $| = 1;
  13
  14 BEGIN {
  15     Test::Builder->new->no_header(1);
  16 }
  17
  18 use Test::More tests => 1;
  19
  20 print "1..1\n";
  21 pass;