4 if( $ENV{PERL_CORE} ) {
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' );
18 pass('Just testing plan()');
19 pass('Testing it some more');