77 |
|
|
78 |
@tests = ( $self->test ) if $self->test; |
@tests = ( $self->test ) if $self->test; |
79 |
|
|
80 |
@tests = grep { |
if ( my $depends = $self->depends ) { |
81 |
! m{$0} # break recursion |
@tests = grep { |
82 |
} sort keys %{ $self->depends } unless @tests; |
! m{$0} # break recursion |
83 |
|
} sort keys %{ $depends } unless @tests; |
84 |
|
} |
85 |
|
|
86 |
push @{ $self->status }, { test => { depends => $self->depends } }; # FIXME |
$self->add_status( { test => { depends => $self->depends } } ); |
87 |
|
|
88 |
if ( ! @tests ) { |
if ( ! @tests ) { |
89 |
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->depends ); |