--- trunk/lib/Frey/Test/Runner.pm 2008/11/26 02:35:59 527 +++ trunk/lib/Frey/Test/Runner.pm 2008/11/26 03:22:21 528 @@ -30,7 +30,8 @@ documentation => 'run only this single test', ); -has depends => ( +has test_because => ( + documentation => 'returns classes responsable for each test run', is => 'rw', # isa => 'HashRef[Hashref[Int]', required => 1, @@ -82,17 +83,17 @@ @tests = ( $self->test ) if $self->test; - if ( my $depends = $self->depends ) { + if ( my $depends = $self->test_because ) { @tests = grep { $_ ne '' && ! m{$0} # break recursion } sort keys %{ $depends } unless @tests; } - $self->add_status( { test => { depends => $self->depends } } ); + $self->add_status( { test => { depends => $self->test_because } } ); if ( ! @tests ) { - warn "can't find any tests ", dump( $self->tests ), " within depends ", dump( $self->depends ); + warn "can't find any tests ", dump( $self->tests ), " within depends ", dump( $self->test_because ); warn "running all tests instead"; @tests = glob('t/*.t'); } @@ -130,7 +131,7 @@ $html = $self->editor_links( $html ); - if ( my $depends = $self->depends ) { + if ( my $depends = $self->test_because ) { $html .= qq|Test dependencies:| . qq||