1N/A#!/usr/bin/perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't';
1N/A @INC = '../lib';
1N/A }
1N/A}
1N/A
1N/Ause Test::More;
1N/A
1N/Aplan tests => 4;
1N/Aeval { plan tests => 4 };
1N/Alike( $@, '/^You tried to plan twice!/', 'disallow double plan' );
1N/Aeval { plan 'no_plan' };
1N/Alike( $@, '/^You tried to plan twice!/', 'disallow chaning plan' );
1N/A
1N/Apass('Just testing plan()');
1N/Apass('Testing it some more');