package MyTestModule;
use base qw/ Test::Class /;

use Test::More;

sub test_sub1 : Test(2)
{
    my $self = shift;

    ok(....);
    ok(....)
}