Please consider that I had a superclass class Test::Action and subclasses of it. The superclass have methods that have to be invoked by the subclasses. Here is the code of it:

package Test::Action;

use Test::Most;
use Siebel::Srvrmgr::ListParser;
use Test::Moose 'has_attribute_ok';
use base 'Test::Class';

sub class { 'Siebel::Srvrmgr::Daemon::Action' }

sub get_my_data {

    return [qw(foo bar something)];

}

sub startup : Tests(startup => 2) {

    my $test = shift;
    use_ok $test->class();

    # keeps the subclass of Siebel::Srvrmgr::Daemon as an attribute
    ok(
        $test->{action} = $test->class()->new(
            {
                parser => Siebel::Srvrmgr::ListParser->new(),
                params => ['foobar']
            }
        ),
        'the constructor should succeed'
    );

}

sub class_attributes : Tests(2) {

    my $test = shift;

    foreach my $attrib (qw(parser params)) {

        has_attribute_ok( $test->{action}, $attrib );

    }

}

sub class_methods : Tests(6) {

    my $test = shift;

    my $parser_class = 'Siebel::Srvrmgr::ListParser';

    isa_ok( $test->{action}->get_parser(),
        $parser_class, "get_parser returns" );

    can_ok( $test->{action}, qw(new get_params get_parser get_params d
+o) );

    ok(
        $test->{action}->do( $test->get_my_data() ),
        'do method works with an array reference'
    );

    is( $test->{action}->do( $test->get_my_data() ),
        1, 'do method returns 1 if output is used' );

    dies_ok( sub { $test->{action}->do('simple string') },
        'do method raises an exception with wrong type of parameter' )
+;

    ok( $test->{action}->get_params(), 'get_params works' );

}

1;
[download]

In some tests subclasses, I had the need to invoke $test->SUPER::startup() or the tests just failed due errors during initialization. In other test subclass, calling SUPER or not does not change the test results (all pass).

In all subclasses code, I use something like this:

sub startup : Tests(startup => +1) {
    my $test = shift;
    $test->SUPER::startup();
    ok(
        $test->{action} = $test->class()->new(
            {
                parser => Siebel::Srvrmgr::ListParser->new()
            }
        ),
        'the constructor should succeed'
    );
}
[download]

Each subclass also overrides the parent class class() method, to return the correct class name to test.

What changes from the parent class to the child class is that the attribute "action" is defined by the parent, but later replaced by the subclass with another instance of another object.