4 if( $ENV{PERL_CORE} ) {
11 # Utility testing functions.
13 my($test, $name) = @_;
15 $ok .= "not " unless $test;
16 $ok .= "ok $test_num";
17 $ok .= " - $name" if defined $name;
27 my $Test = Test::Builder->new;
31 eval { $Test->plan(7); };
32 ok( $@ =~ /^plan\(\) doesn't understand 7/, 'bad plan()' ) ||
35 eval { $Test->plan(wibble => 7); };
36 ok( $@ =~ /^plan\(\) doesn't understand wibble 7/, 'bad plan()' ) ||