blob: b034893f634ec7e04175d8b83da9466608cd5bc5 (
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/Legacy/subtest/for_do_t.test";
ok -e $file, "subtest test file exists";
subtest $file => sub { do $file };
pass("Last");
done_testing(4);
|