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