ext/Test-Simple/t/Builder/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 => 7;
  16 use Test::Builder;
  17 use Test::Builder::NoOutput;
  18
  19 my $more_tb = Test::More->builder;
  20 isa_ok $more_tb, 'Test::Builder';
  21
  22 is $more_tb, Test::More->builder, 'create does not interfere with ->builder';
  23 is $more_tb, Test::Builder->new,  '       does not interfere with ->new';
  24
  25 {
  26     my $new_tb = Test::Builder::NoOutput->create;
  27
  28     isa_ok $new_tb,  'Test::Builder';
  29     isnt $more_tb, $new_tb, 'Test::Builder->create makes a new object';
  30
  31     $new_tb->plan(tests => 1);
  32     $new_tb->ok(1, "a test");
  33
  34     is $new_tb->read, <<'OUT';
  35 1..1
  36 ok 1 - a test
  37 OUT
  38 }
  39
  40 pass("Changing output() of new TB doesn't interfere with singleton");