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 }; | |
14 | like( $@, '/^You tried to plan twice!/', 'disallow double plan' ); | |
15 | eval { plan 'no_plan' }; | |
16 | like( $@, '/^You tried to plan twice!/', 'disallow chaning plan' ); | |
33459055 | 17 | |
18 | pass('Just testing plan()'); | |
19 | pass('Testing it some more'); |