--- trunk/lib/Frey/Test/Runner.pm	2008/11/24 17:24:18	488
+++ trunk/lib/Frey/Test/Runner.pm	2008/11/24 17:26:47	489
@@ -10,6 +10,7 @@
 use Data::Dump qw/dump/;
 
 use Frey::SVK;
+use Frey::PPI;
 
 has tests => (
 	is => 'rw',
@@ -39,7 +40,21 @@
 	my @tests =
 		grep { ! m{$0} } # FIXME privitive way to break recursion
 		grep { m{\.t$} } # take just tests
+		map {
+			if ( m{(.+)\.pm$} ) {
+				my $class = $1;
+				$class =~ s{^lib/}{};
+				$class =~ s{/}{::}g;
+				warn "extract $_ tests $class";
+				Frey::PPI->new( class => $class )->has_tests;
+			} else {
+				$_
+			}
+		}
 		@{ $self->tests };
+
+	die "no tests for files ", dump( $self->tests ) unless @tests;
+
 	warn "testing ",dump( @tests );
 	$h->runtests( @tests );