sub runTests { 
    my ($self) = @_;  
    for my $symname (sort keys %$self) { 
        next unless $symname =~ /^_/; 
        $self->$symname() if $self->can($symname); 
    } 
}