2 # $Id: /mirror/googlecode/test-more/t/plan.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
5 if( $ENV{PERL_CORE} ) {
14 eval { plan tests => 4 };
15 is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ - 1),
16 'disallow double plan' );
17 eval { plan 'no_plan' };
18 is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ -1),
19 'disallow changing plan' );
21 pass('Just testing plan()');
22 pass('Testing it some more');