1 files changed, 31 insertions, 0 deletions
diff --git a/cpan/Test-Simple/t/subtest/implicit_done.t b/cpan/Test-Simple/t/subtest/implicit_done.t
new file mode 100644
index 0000000000..0963e72c59
--- /dev/null
+++ b/cpan/Test-Simple/t/subtest/implicit_done.t
@@ -0,0 +1,31 @@
+#!/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;