1#!/usr/bin/perl -w
2
3# A subtest without a plan implicitly calls "done_testing"
4
5use strict;
6use Test::More;
7
8pass "Before";
9
10subtest 'basic' => sub {
11    pass "Inside sub test";
12};
13
14subtest 'with done' => sub {
15    pass 'This has done_testing';
16    done_testing;
17};
18
19subtest 'with plan' => sub {
20    plan tests => 1;
21    pass 'I have a plan, Batman!';
22};
23
24subtest 'skipping' => sub {
25    plan skip_all => 'Skipping';
26    fail 'Shouldnt see me!';
27};
28
29pass "After";
30
31done_testing;
32