#!/usr/bin/perl -w
use strict;
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
BEGIN { require "t/test.pl" }
use Test::Builder::NoOutput;
my $tb = Test::Builder::NoOutput->create;
{
# Normalize test output
local $ENV{HARNESS_ACTIVE};
$tb->ok(1);
$tb->ok(1);
$tb->ok(1);
#line 24
$tb->done_testing(3);
ok !eval { $tb->done_testing; };
is $@, "Tried to finish testing, but testing is already done at $0 line 25.\n";
}
is($tb->read, <<"END", "multiple done_testing");
TAP version 13
ok 1
ok 2
ok 3
1..3
END
done_testing;