package My::TestCase;
use base qw(Test::Unit::TestCase);
use Test::Unit::TestSuite;

sub test_the_first {
    my $self = shift;
    $self->assert( 1, 'first' );
}   

sub test_the_second {
    my $self = shift;
    $self->assert( 1, 'second' );
}   

sub suite {
    return MySuiteSetup->new(
        Test::Unit::TestSuite->new( __PACKAGE__ )
    );
}

package MySuiteSetup;
use base qw( Test::Unit::Setup );

sub set_up {
    warn "before all tests\n";
}

sub tear_down {
    warn "after all tests\n";
}