#!/usr/bin/perl -w
BEGIN {
if
(
$ENV
{PERL_CORE} ) {
chdir
't'
;
@INC
= (
'../lib'
,
'lib'
);
}
else
{
unshift
@INC
,
't/lib'
;
}
}
my
$tb
= Test::Builder->create;
my
$ok
=
sub
{
shift
->ok(
@_
) };
my
$plan
=
sub
{
shift
->plan(
@_
) };
my
$done_testing
=
sub
{
shift
->done_testing(
@_
) };
ok !
eval
{
$tb
->
$plan
(
tests
=>
undef
) };
is($@,
"Got an undefined number of tests at $0 line 20.\n"
);
ok !
eval
{
$tb
->
$plan
(
tests
=> 0) };
is($@,
"You said to run 0 tests at $0 line 24.\n"
);
{
my
$warning
=
''
;
local
$SIG
{__WARN__} =
sub
{
$warning
.=
join
''
,
@_
};
ok
$tb
->
$plan
(
no_plan
=> 1);
is(
$warning
,
"no_plan takes no arguments at $0 line 31.\n"
);
is
$tb
->has_plan,
'no_plan'
;
}