1*5759b3d2Safresh1#!/usr/bin/perl -w 2*5759b3d2Safresh1 3*5759b3d2Safresh1BEGIN { 4*5759b3d2Safresh1 if( $ENV{PERL_CORE} ) { 5*5759b3d2Safresh1 chdir 't'; 6*5759b3d2Safresh1 @INC = '../lib'; 7*5759b3d2Safresh1 } 8*5759b3d2Safresh1} 9*5759b3d2Safresh1 10*5759b3d2Safresh1use Test::Builder; 11*5759b3d2Safresh1my $Test = Test::Builder->new; 12*5759b3d2Safresh1$Test->plan( tests => 2 ); 13*5759b3d2Safresh1$Test->level(0); 14*5759b3d2Safresh1 15*5759b3d2Safresh1my $tb = Test::Builder->create; 16*5759b3d2Safresh1 17*5759b3d2Safresh1eval { $tb->plan(7); }; 18*5759b3d2Safresh1$Test->like( $@, qr/^plan\(\) doesn't understand 7/, 'bad plan()' ) || 19*5759b3d2Safresh1 print STDERR "# $@"; 20*5759b3d2Safresh1 21*5759b3d2Safresh1eval { $tb->plan(wibble => 7); }; 22*5759b3d2Safresh1$Test->like( $@, qr/^plan\(\) doesn't understand wibble 7/, 'bad plan()' ) || 23*5759b3d2Safresh1 print STDERR "# $@"; 24