use strict;
use warnings;

use FindBin ();
use lib "$FindBin::Bin";
use TMod;

use Test::More tests => 4;

ok( 1 == 1, "mytest1" );
subtest tmod => sub { TMod::sub1() };
ok( 3 == 4, "mytest3" );
ok( 4 == 4, "mytest4" );

##</code><code>##

package TMod;
use strict;
use warnings;

use Test::More;

sub sub1
{
    plan tests => 2;

    ok( 'sub1' eq 'sub99', "sub1-test1" );
    ok( 42 == 42, "sub1-test2" );
}

1;

##</code><code>##

$ perl t1.pl
1..4
ok 1 - mytest1
    1..2
    not ok 1 - sub1-test1
    #   Failed test 'sub1-test1'
    #   at /Users/ken/tmp/pm_subtest_mod/TMod.pm line 11.
    ok 2 - sub1-test2
    # Looks like you failed 1 test of 2.
not ok 2 - tmod
#   Failed test 'tmod'
#   at t1.pl line 11.
not ok 3 - mytest3
#   Failed test 'mytest3'
#   at t1.pl line 12.
ok 4 - mytest4
# Looks like you failed 2 tests of 4.