add test cases for - Exceptions are swallowed when tests exceed count -

#38

t/81-examples.t

@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Capture::Tiny qw(capture);
+
+subtest good_test_count_and_exception => sub {
+    my ($out, $err, $exit) = capture { system "$^X t/examples/good-test-count-and-exception.pl" };
+    is $exit, 256;
+    cmp_ok index($out, 'not ok 3 - mytest died'), '>', 0;
+    cmp_ok index($out, '123123'), '>', 0;
+    cmp_ok index($err, 'mytest died'), '>', 0;
+};
+
+subtest bad_test_count_and_exception => sub {
+    my ($out, $err, $exit) = capture { system "$^X t/examples/bad-test-count-and-exception.pl" };
+    #is $exit, 256;
+    #cmp_ok index($out, 'not ok 3 - mytest died'), '>', 0;
+    #cmp_ok index($out, '123123'), '>', 0;
+    #cmp_ok index($err, 'mytest died'), '>', 0;
+    pass;
+};
+
+
+done_testing;
+

t/examples/bad-test-count-and-exception.pl

@@ -0,0 +1,15 @@
+package Test;
+
+use Test::More;
+plan tests => 1;
+
+use parent qw( Test::Class );
+
+sub mytest : Tests(1) {
+    ok 1;
+    ok 1;
+
+    die 123123;
+}
+
+__PACKAGE__->new()->runtests();

t/examples/good-test-count-and-exception.pl

@@ -0,0 +1,15 @@
+package Test;
+
+use Test::More;
+plan tests => 1;
+
+use parent qw( Test::Class );
+
+sub mytest : Tests(2) {
+    ok 1;
+    ok 1;
+
+    die 123123;
+}
+
+__PACKAGE__->new()->runtests();