lib/Test/Simple/t/Builder/no_plan_at_all.t

   1 #!/usr/bin/perl -w
   2
   3 # Test what happens when no plan is delcared and done_testing() is not seen
   4
   5 use strict;
   6 use lib 't/lib';
   7
   8 use Test::Builder;
   9 use Test::Builder::NoOutput;
  10
  11 my $Test = Test::Builder->new;
  12 $Test->level(0);
  13 $Test->plan( tests => 1 );
  14
  15 my $tb = Test::Builder::NoOutput->create;
  16
  17 {
  18     $tb->level(0);
  19     $tb->ok(1, "just a test");
  20     $tb->ok(1, "  and another");
  21     $tb->_ending;
  22 }
  23
  24 $Test->is_eq($tb->read, <<'END', "proper behavior when no plan is seen");
  25 ok 1 - just a test
  26 ok 2 -   and another
  27 # Tests were run but no plan was declared and done_testing() was not seen.
  28 END