[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / BEGIN_require_ok.t

#!/usr/bin/perl -w
# $Id: /mirror/googlecode/test-more/t/BEGIN_require_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = ('../lib', 'lib');
    }
    else {
        unshift @INC, 't/lib';
    }
}

use Test::More;

my $result;
BEGIN {
    eval {
        require_ok("Wibble");
    };
    $result = $@;
}

plan tests => 1;
like $result, '/^You tried to run a test without a plan/';
Commit	Line	Data
705e6672	1	#!/usr/bin/perl -w
ccbd73a4	2	# $Id: /mirror/googlecode/test-more/t/BEGIN_require_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
705e6672	3
	4	BEGIN {
	5	if( $ENV{PERL_CORE} ) {
	6	chdir 't';
	7	@INC = ('../lib', 'lib');
	8	}
	9	else {
	10	unshift @INC, 't/lib';
	11	}
	12	}
	13
	14	use Test::More;
	15
	16	my $result;
	17	BEGIN {
	18	eval {
	19	require_ok("Wibble");
	20	};
	21	$result = $@;
	22	}
	23
	24	plan tests => 1;
	25	like $result, '/^You tried to run a test without a plan/';