30 |
documentation => 'run only this single test', |
documentation => 'run only this single test', |
31 |
); |
); |
32 |
|
|
33 |
has depends => ( |
has test_because => ( |
34 |
|
documentation => 'returns classes responsable for each test run', |
35 |
is => 'rw', |
is => 'rw', |
36 |
# isa => 'HashRef[Hashref[Int]', |
# isa => 'HashRef[Hashref[Int]', |
37 |
required => 1, |
required => 1, |
83 |
|
|
84 |
@tests = ( $self->test ) if $self->test; |
@tests = ( $self->test ) if $self->test; |
85 |
|
|
86 |
if ( my $depends = $self->depends ) { |
if ( my $depends = $self->test_because ) { |
87 |
@tests = grep { |
@tests = grep { |
88 |
$_ ne '' && |
$_ ne '' && |
89 |
! m{$0} # break recursion |
! m{$0} # break recursion |
90 |
} sort keys %{ $depends } unless @tests; |
} sort keys %{ $depends } unless @tests; |
91 |
} |
} |
92 |
|
|
93 |
$self->add_status( { test => { depends => $self->depends } } ); |
$self->add_status( { test => { depends => $self->test_because } } ); |
94 |
|
|
95 |
if ( ! @tests ) { |
if ( ! @tests ) { |
96 |
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 ); |
97 |
warn "running all tests instead"; |
warn "running all tests instead"; |
98 |
@tests = glob('t/*.t'); |
@tests = glob('t/*.t'); |
99 |
} |
} |
131 |
|
|
132 |
$html = $self->editor_links( $html ); |
$html = $self->editor_links( $html ); |
133 |
|
|
134 |
if ( my $depends = $self->depends ) { |
if ( my $depends = $self->test_because ) { |
135 |
$html .= qq|Test dependencies:| |
$html .= qq|Test dependencies:| |
136 |
. qq|<ul><li>| |
. qq|<ul><li>| |
137 |
. join("</li>\n<li>", |
. join("</li>\n<li>", |
146 |
qq|<a target="introspect" href="/$_" title="introspect">$_</a>| |
qq|<a target="introspect" href="/$_" title="introspect">$_</a>| |
147 |
# qq|<a target="editor" href="/editor+$_+1" title="edit">$_</a>| |
# qq|<a target="editor" href="/editor+$_+1" title="edit">$_</a>| |
148 |
} |
} |
149 |
} keys %{ $self->depends->{$_} } |
} keys %{ $depends->{$_} } |
150 |
) |
) |
151 |
} @tests ) |
} @tests ) |
152 |
. qq|</li></ul>| |
. qq|</li></ul>| |