ext/Test-Simple/t/plan_is_noplan.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = ('../lib', 'lib');
   7     }
   8     else {
   9         unshift @INC, 't/lib';
  10     }
  11 }
  12
  13 use strict;
  14
  15 use Test::More tests => 1;
  16
  17 use Test::Builder::NoOutput;
  18
  19 {
  20     my $tb = Test::Builder::NoOutput->create;
  21
  22     $tb->plan('no_plan');
  23
  24     $tb->ok(1, 'foo');
  25     $tb->_ending;
  26
  27     is($tb->read, <<OUT);
  28 ok 1 - foo
  29 1..1
  30 OUT
  31 }
  32