--- trunk/lib/Frey/Test/Runner.pm	2008/11/24 14:28:43	484
+++ trunk/lib/Frey/Test/Runner.pm	2008/11/24 15:36:00	486
@@ -3,17 +3,23 @@
 
 extends 'Frey';
 with 'Frey::Web';
+with 'Frey::Storage';
 
 use TAP::Harness;
 use TAP::Formatter::HTML;
 use Data::Dump qw/dump/;
 
+use Frey::SVK;
+
 has tests => (
 	is => 'rw',
 	isa => 'ArrayRef[Str]',
 	required => 1,
 	lazy => 1, # FIXME ask users which tests to run
-	default => sub { [ glob('t/*.t') ] },
+	default => sub {
+#		[ glob('t/*.t') ] # all tests
+		[ Frey::SVK->modified ]
+	},
 );
 
 sub as_markup {
@@ -30,10 +36,15 @@
 		formatter => $f,
 	});
 
-	my @tests = grep { ! m{$0} } @{ $self->tests }; # FIXME privitive way to break recursion
+	my @tests =
+		grep { ! m{$0} } # FIXME privitive way to break recursion
+		grep { m{\.t$} } # take just tests
+		@{ $self->tests };
 	warn "testing ",dump( @tests );
 	$h->runtests( @tests );
 
+	$self->store( 'var/test.yaml', $h );
+
 	my $html = ${ $f->html };
 #	warn $html;
 	warn "got ",length($html), " bytes";