--- trunk/lib/Frey/Test/Runner.pm	2008/11/25 14:58:59	518
+++ trunk/lib/Frey/Test/Runner.pm	2008/11/25 17:15:18	519
@@ -59,9 +59,15 @@
 	},
 );
 
+our $running;
+exit if $running;
+
 sub as_markup {
 	my ($self) = @_;
 
+	return 'allready running' if $running;
+	$running = 1;
+
 	my $f = TAP::Formatter::HTML->new({
 #		silent => 1,
 
@@ -92,6 +98,8 @@
 		@tests = glob('t/*.t');
 	}
 
+	$self->title( join(' ', @tests ) );
+
 	warn "testing ",dump( @tests );
 	$h->runtests( @tests );
 
@@ -128,7 +136,7 @@
 		. qq|<ul><li>|
 		. join("</li>\n<li>",
 			map {
-				qq|<a href="#$_"><tt>$_</tt></a> &larr; |
+				qq|<a href="?test=$_"><tt>$_</tt></a> &larr; |
 				.
 				join(' ',
 					map {
@@ -145,6 +153,8 @@
 		;
 	}
 	
+	$running = 0;
+	return $html;
 }
 
 1;