/usr/share/doc/perl-Test-Simple/t/Legacy/Tester
NameSizeModeActions
tbt_01basic.t12740644editdlrm
tbt_02fhrestore.t12010644editdlrm
tbt_03die.t2250644editdlrm
tbt_04line_num.t1960644editdlrm
tbt_05faildiag.t8240644editdlrm
tbt_06errormess.t30970644editdlrm
tbt_07args.t52760644editdlrm
tbt_08subtest.t2680644editdlrm
tbt_09do.t5820644editdlrm
tbt_09do_script.pl2150644editdlrm
Edit: /usr/share/doc/perl-Test-Simple/t/Legacy/Tester/tbt_08subtest.t (268B)
#!/usr/bin/env perl # HARNESS-NO-STREAM use strict; use warnings; use Test::Builder::Tester tests => 1; use Test::More; subtest 'foo' => sub { plan tests => 1; test_out("not ok 1 - foo"); test_fail(+1); fail("foo"); test_test("fail works"); };