ext/Test-Simple/t/Builder/current_test_without_plan.t

   1 #!/usr/bin/perl -w
   2
   3 # Test that current_test() will work without a declared plan.
   4
   5 use Test::Builder;
   6
   7 my $tb = Test::Builder->new;
   8 $tb->current_test(2);
   9 print <<'END';
  10 ok 1
  11 ok 2
  12 END
  13
  14 $tb->ok(1, "Third test");
  15
  16 $tb->done_testing(3);