xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/subtest/do.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
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