--- trunk/lib/Frey/Test/Runner.pm 2008/11/24 21:16:27 496 +++ trunk/lib/Frey/Test/Runner.pm 2008/11/24 21:25:28 497 @@ -49,7 +49,7 @@ $class =~ s{^lib/}{}; $class =~ s{/}{::}g; warn "extract tests from $_ class $class"; - $tests->{$_}++ foreach Frey::PPI->new( class => $class )->has_tests; + $tests->{$_}->{$class}++ foreach Frey::PPI->new( class => $class )->has_tests; } } @{ $self->tests }; @@ -84,11 +84,22 @@ $html =~ s{^.*}{}s; $html =~ s{.*$}{}s; - $html =~ s{(t/(.+?)}{$3}sg; + $html =~ s{(t/(.+?)}{$3}sg; return $self->editor_links( $html ) - . qq|

| . join("
", map { qq|$_| } @tests) . qq|

| + . qq|

| + . join("
", + map { + qq|$_ ← | + . + join(' ', + map { + qq|$_| + } keys %{ $tests->{$_} } + ) + } @tests ) + . qq|

| ; }