[perl #46893] [TODO] [Perl] Complete test coverage of Parrot::Test

[James Keenan via RT]

A follow-up:  Another curious point about this is that this block:

            # set up default description
            unless ($desc) {
                ( undef, my $file, my $line ) = caller();
                $desc = "($file line $line)";
            }

... occurs *twice* in this package:  once, where cited, in
_run_test_file(); once in _generate_test_functions() approx. 62 lines
after the point at which _generate_test_functions() itself calls
_run_test_file()!

kid51