1#!/usr/bin/perl -w 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't'; 6 @INC = '../lib'; 7 } 8} 9 10use Test::More; 11 12plan tests => 4; 13eval { plan tests => 4 }; 14like( $@, '/^You tried to plan twice!/', 'disallow double plan' ); 15eval { plan 'no_plan' }; 16like( $@, '/^You tried to plan twice!/', 'disallow chaning plan' ); 17 18pass('Just testing plan()'); 19pass('Testing it some more'); 20