2 # $Id: /mirror/googlecode/test-more/t/BEGIN_use_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
6 # A use_ok() inside a BEGIN block lacking a plan would be silently ignored.
9 if( $ENV{PERL_CORE} ) {
11 @INC = ('../lib', 'lib');
14 unshift @INC, 't/lib';
29 like $result, '/^You tried to run a test without a plan/';