package My::Test::Class;
use strict;
use warnings;
use parent qw(Test::Class Class::Data::Inheritable);
use Test::More;

BEGIN {
    __PACKAGE__->mk_classdata('class');
}

sub _startup : Tests(startup => 1) {
    my $test = shift;
    (my $class = ref $test) =~ s/::Test$//;
    use_ok $class or die;
    $test->class($class);
}

1;