| Path : /proc/3/task/3/cwd/usr/share/doc/perl-Test-Simple-0.98/t/subtest/ |
| Current File : //proc/3/task/3/cwd/usr/share/doc/perl-Test-Simple-0.98/t/subtest/do.t |
#!/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);