sub runTests {
    my ($self) = @_;

    foreach $symname (sort keys %{$self}::) {
        local *sym = ${$self}::{$symname};

        &$symname if ((definined &sym) && ($symname =~ /_\.*/));
    }
} # sub runTests