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

   1 #!/usr/bin/perl -w
   2
   3 #!perl -w
   4
   5 BEGIN {
   6     if( $ENV{PERL_CORE} ) {
   7         chdir 't';
   8         @INC = ('../lib', 'lib');
   9     }
  10     else {
  11         unshift @INC, 't/lib';
  12     }
  13 }
  14
  15 use Test::More tests => 8;
  16 use Test::Builder;
  17
  18 my $more_tb = Test::More->builder;
  19 isa_ok $more_tb, 'Test::Builder';
  20
  21 is $more_tb, Test::More->builder, 'create does not interfere with ->builder';
  22 is $more_tb, Test::Builder->new,  '       does not interfere with ->new';
  23
  24 {
  25     my $new_tb  = Test::Builder->create;
  26
  27     isa_ok $new_tb,  'Test::Builder';
  28     isnt $more_tb, $new_tb, 'Test::Builder->create makes a new object';
  29
  30     $new_tb->output("some_file");
  31     END { 1 while unlink "some_file" }
  32
  33     $new_tb->plan(tests => 1);
  34     $new_tb->ok(1);
  35 }
  36
  37 pass("Changing output() of new TB doesn't interfere with singleton");
  38
  39 ok open FILE, "some_file";
  40 is join("", <FILE>), <<OUT;
  41 1..1
  42 ok 1
  43 OUT
  44
  45 close FILE;