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