--- trunk/lib/Frey/Test/Runner.pm	2008/11/24 15:36:00	486
+++ trunk/lib/Frey/Test/Runner.pm	2008/11/24 18:29:41	491
@@ -10,6 +10,7 @@
 use Data::Dump qw/dump/;
 
 use Frey::SVK;
+use Frey::PPI;
 
 has tests => (
 	is => 'rw',
@@ -26,24 +27,41 @@
 	my ($self) = @_;
 
 	my $f = TAP::Formatter::HTML->new({
-		silent => 1,
+#		silent => 1,
 
 		inline_css => 1,
-		inline_js => 1,
+		inline_js  => 0,
 	});
 	my $h = TAP::Harness->new({
 		merge => 1,
 		formatter => $f,
 	});
 
-	my @tests =
-		grep { ! m{$0} } # FIXME privitive way to break recursion
-		grep { m{\.t$} } # take just tests
-		@{ $self->tests };
+	my $tests;
+
+	map {
+		$tests->{$_}++ if m{\.t$};
+	} @{ $self->tests };
+
+	map {
+		if ( m{(.+)\.pm$} ) {
+			my $class = $1;
+			$class =~ s{^lib/}{};
+			$class =~ s{/}{::}g;
+			warn "extract tests from $_ class $class";
+			$tests->{$_}++ foreach Frey::PPI->new( class => $class )->has_tests;
+		}
+	} @{ $self->tests };
+
+	my @tests = grep {
+		! m{$0} # break recursion	
+	} sort keys %$tests;
+	die "no tests for files ", dump( $self->tests ),dump( $tests ) unless @tests;
+
 	warn "testing ",dump( @tests );
 	$h->runtests( @tests );
 
-	$self->store( 'var/test.yaml', $h );
+	$self->store( 'var/test/' . time() . '.yaml', $h );
 
 	my $html = ${ $f->html };
 #	warn $html;