--- trunk/lib/Frey/Test/Runner.pm 2008/11/24 20:51:26 494
+++ trunk/lib/Frey/Test/Runner.pm 2008/11/24 21:50:05 503
@@ -40,7 +40,7 @@
my $tests;
map {
- $tests->{$_}++ if m{\.t$};
+ $tests->{$_}->{'test modified'}++ if m{\.t$};
} @{ $self->tests };
map {
@@ -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,27 @@
$html =~ s{^.*}{}s;
$html =~ s{.*$}{}s;
- $html =~ s{(t/(.+?)}{$3}sg;
+ $html =~ s{(t/(.+?)}{$3}sg;
return
$self->editor_links( $html )
- . qq|- | . join("
\n- ", map { qq|$_| } @tests) . qq|
|
+ . qq|- |
+ . join("
\n- ",
+ map {
+ qq|$_ ← |
+ .
+ join(' ',
+ map {
+ if ( m{\s} ) {
+ $_ # human comment with space
+ } else {
+ qq|$_|
+# qq|$_|
+ }
+ } keys %{ $tests->{$_} }
+ )
+ } @tests )
+ . qq|
|
;
}