[perl5.git] / cpan / Test-Simple / t / Legacy / subtest / do.t

#!/usr/bin/perl -w

# Test the idiom of running another test file as a subtest.

use strict;
use Test::More;

pass("First");

my $file = "t/Legacy/subtest/for_do_t.test";
ok -e $file, "subtest test file exists";

subtest $file => sub { do $file };

pass("Last");

done_testing(4);
Commit	Line	Data
2c4d5b9b SH	1	#!/usr/bin/perl -w
	2
	3	# Test the idiom of running another test file as a subtest.
	4
	5	use strict;
	6	use Test::More;
	7
	8	pass("First");
	9
b4514920	10	my $file = "t/Legacy/subtest/for_do_t.test";
2c4d5b9b SH	11	ok -e $file, "subtest test file exists";
	12
	13	subtest $file => sub { do $file };
	14
	15	pass("Last");
	16
	17	done_testing(4);