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

    foreach $symname (sort keys %{"${ref}::"}) {
        next unless defined $symname;
        next unless $symname =~ /^.+::(_[^:]+)$/;

        $self->$1();
    }
} # sub runTests