use strict;
use warnings;

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

use Test::More tests => 5;

ok( 1 == 1, "mytest1" );
TMod::sub1();
ok( 3 == 4, "mytest3" );
ok( 4 == 4, "mytest4" );

##</code><code>##

package TMod;
use strict;
use warnings;

use Test::More;

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

1;

##</code><code>##

$ perl t1.pl
1..5
ok 1 - mytest1
not ok 2 - sub1-test1
#   Failed test 'sub1-test1'
#   at E:/knob/tm/TMod.pm line 9.
ok 3 - sub1-test2
not ok 4 - mytest3
#   Failed test 'mytest3'
#   at t1.pl line 12.
ok 5 - mytest4
# Looks like you failed 2 tests of 5.