--- trunk/lib/Frey/Test/Runner.pm 2008/11/24 18:29:41 491 +++ trunk/lib/Frey/Test/Runner.pm 2008/11/24 20:51:26 494 @@ -63,12 +63,34 @@ $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;