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