1*5759b3d2Safresh1#!/usr/bin/perl -w 2*5759b3d2Safresh1 3*5759b3d2Safresh1BEGIN { 4*5759b3d2Safresh1 if( $ENV{PERL_CORE} ) { 5*5759b3d2Safresh1 chdir 't'; 6*5759b3d2Safresh1 @INC = ('../lib', 'lib'); 7*5759b3d2Safresh1 } 8*5759b3d2Safresh1 else { 9*5759b3d2Safresh1 unshift @INC, 't/lib'; 10*5759b3d2Safresh1 } 11*5759b3d2Safresh1} 12*5759b3d2Safresh1 13*5759b3d2Safresh1use Test::More tests => 7; 14*5759b3d2Safresh1 15*5759b3d2Safresh1my $tb = Test::Builder->create; 16*5759b3d2Safresh1 17*5759b3d2Safresh1# TB methods expect to be wrapped 18*5759b3d2Safresh1my $ok = sub { shift->ok(@_) }; 19*5759b3d2Safresh1my $plan = sub { shift->plan(@_) }; 20*5759b3d2Safresh1my $done_testing = sub { shift->done_testing(@_) }; 21*5759b3d2Safresh1 22*5759b3d2Safresh1#line 20 23*5759b3d2Safresh1ok !eval { $tb->$plan(tests => undef) }; 24*5759b3d2Safresh1is($@, "Got an undefined number of tests at $0 line 20.\n"); 25*5759b3d2Safresh1 26*5759b3d2Safresh1#line 24 27*5759b3d2Safresh1ok !eval { $tb->$plan(tests => 0) }; 28*5759b3d2Safresh1is($@, "You said to run 0 tests at $0 line 24.\n"); 29*5759b3d2Safresh1 30*5759b3d2Safresh1{ 31*5759b3d2Safresh1 my $warning = ''; 32*5759b3d2Safresh1 local $SIG{__WARN__} = sub { $warning .= join '', @_ }; 33*5759b3d2Safresh1 34*5759b3d2Safresh1#line 31 35*5759b3d2Safresh1 ok $tb->$plan(no_plan => 1); 36*5759b3d2Safresh1 is( $warning, "no_plan takes no arguments at $0 line 31.\n" ); 37*5759b3d2Safresh1 is $tb->has_plan, 'no_plan'; 38*5759b3d2Safresh1} 39