sub runTests3 {
    my ($self) = @_;
    no strict 'refs';
    for my $symname (sort keys %{ref($self).'::'}) {
        next unless $symname =~ /^_/;
        $self->$symname() if $self->can($symname);
    }
}