lib/Test/Simple/t/Builder/done_testing_double.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use lib 't/lib';
   5
   6 use Test::Builder;
   7 use Test::Builder::NoOutput;
   8
   9 my $tb = Test::Builder::NoOutput->create;
  10
  11 {
  12     # Normalize test output
  13     local $ENV{HARNESS_ACTIVE};
  14
  15     $tb->ok(1);
  16     $tb->ok(1);
  17     $tb->ok(1);
  18
  19 #line 24
  20     $tb->done_testing(3);
  21     $tb->done_testing;
  22     $tb->done_testing;
  23 }
  24
  25 my $Test = Test::Builder->new;
  26 $Test->plan( tests => 1 );
  27 $Test->level(0);
  28 $Test->is_eq($tb->read, <<"END", "multiple done_testing");
  29 ok 1
  30 ok 2
  31 ok 3
  32 1..3
  33 not ok 4 - done_testing() was already called at $0 line 24
  34 #   Failed test 'done_testing() was already called at $0 line 24'
  35 #   at $0 line 25.
  36 not ok 5 - done_testing() was already called at $0 line 24
  37 #   Failed test 'done_testing() was already called at $0 line 24'
  38 #   at $0 line 26.
  39 END