[p5sagit/p5-mst-13.2.git] / t / lib / Test / Simple / sample_tests / pre_plan_death.plx

# ID 20020716.013, the exit code would become 0 if the test died
# $Id$
# before a plan.

require Test::Simple;

push @INC, 't/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();

close STDERR;
die "Knife?";

Test::Simple->import(tests => 3);

ok(1);
ok(1);
ok(1);
Commit	Line	Data
60ffb308	1	# ID 20020716.013, the exit code would become 0 if the test died
3c4bf434	2	# $Id$
60ffb308	3	# before a plan.
	4
	5	require Test::Simple;
	6
	7	push @INC, 't/lib';
	8	require Test::Simple::Catch;
	9	my($out, $err) = Test::Simple::Catch::caught();
	10
	11	close STDERR;
	12	die "Knife?";
	13
	14	Test::Simple->import(tests => 3);
	15
	16	ok(1);
	17	ok(1);
	18	ok(1);