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