blob: 40b950184ec01ab74d0f692e375afa1a90ef5cd1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/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/subtest/for_do_t.test";
ok -e $file, "subtest test file exists";
subtest $file => sub { do $file };
pass("Last");
done_testing(4);
|
