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