4 if( $ENV{PERL_CORE} ) {
13 eval { plan tests => 4 };
14 is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ - 1),
15 'disallow double plan' );
16 eval { plan 'no_plan' };
17 is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ -1),
18 'disallow changing plan' );
20 pass('Just testing plan()');
21 pass('Testing it some more');