[Perlunit-users] @TESTS bug

[Jean-Louis L. <jl...@so...>]

Hello,

I've found out a trivial bug in Test::Unit, which btw solves this
problem:
http://sourceforge.net/mailarchive/forum.php?thread_id=3232369&forum_id=2441

Test::Unit::TestCase::list_tests does grab the testsub names from
@TESTS as documented, but then sticks them in a hash, probably to
remove duplicates:

sub list_tests {
    my $class = ref($_[0]) || $_[0];
    # ...
    my %tests = map {$_ => ''} @tests;
    return keys %tests;
}

I experimented a fix in a subclass of T::U::TestCase:


  sub list_tests {
    my $class = ref($_[0]) || $_[0];
    # ...
    my %seen;
    return grep { !$seen{$_}++ } @tests;
  }

I see that the latest release of the module dates back to 2002, and
the latest message on this ML is one year old. Is the module still
alive? Who's in charge? If I take the time to make a proper patch,
will it be incorporated and will a new version be released?

Thanks,
Jean-Louis Leroy
Sound Object Logic
http://www.soundobjectlogic.com