--- trunk/lib/Frey/Test/Runner.pm 2008/11/24 18:29:41 491 +++ 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 }; @@ -63,12 +63,45 @@ $self->store( 'var/test/' . time() . '.yaml', $h ); + push @{ $self->status }, { test => $tests }; + my $html = ${ $f->html }; # warn $html; warn "got ",length($html), " bytes"; -# $html =~ s{^.*}{}s; -# $html =~ s{.*$}{}s; - return $self->editor_links( $html ); + + while ( $html =~ s{()}{}gs ) { + $self->add_head( $1 ); + } + + $self->add_head(qq| + + |); + + $html =~ s{^.*}{}s; + $html =~ s{.*$}{}s; + + $html =~ s{(t/(.+?)}{$3}sg; + + return + $self->editor_links( $html ) + . qq|| + ; + } 1;