/usr/share/doc/perl-Test-Simple/t/Legacy/subtest
#!/usr/bin/perl -w # A subtest without a plan implicitly calls "done_testing" use strict; use Test::More; pass "Before"; subtest 'basic' => sub { pass "Inside sub test"; }; subtest 'with done' => sub { pass 'This has done_testing'; done_testing; }; subtest 'with plan' => sub { plan tests => 1; pass 'I have a plan, Batman!'; }; subtest 'skipping' => sub { plan skip_all => 'Skipping'; fail 'Shouldnt see me!'; }; pass "After"; done_testing;
.
Edit
..
Edit
args.t
Edit
bail_out.t
Edit
basic.t
Edit
callback.t
Edit
die.t
Edit
do.t
Edit
events.t
Edit
for_do_t.test
Edit
fork.t
Edit
implicit_done.t
Edit
line_numbers.t
Edit
plan.t
Edit
predicate.t
Edit
singleton.t
Edit
threads.t
Edit
todo.t
Edit
wstat.t
Edit