Commit | Line | Data |
60ffb308 |
1 | #!/usr/bin/perl -w |
2 | |
33459055 |
3 | BEGIN { |
a9153838 |
4 | if( $ENV{PERL_CORE} ) { |
5 | chdir 't'; |
6 | @INC = '../lib'; |
7 | } |
33459055 |
8 | } |
9 | |
10 | use Test::More; |
11 | |
a344be10 |
12 | plan tests => 4; |
13 | eval { plan tests => 4 }; |
b7f9bbeb |
14 | is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ - 1), |
15 | 'disallow double plan' ); |
a344be10 |
16 | eval { plan 'no_plan' }; |
b7f9bbeb |
17 | is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ -1), |
18 | 'disallow changing plan' ); |
33459055 |
19 | |
20 | pass('Just testing plan()'); |
21 | pass('Testing it some more'); |