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 ); |
117 |
|
|
118 |
$html =~ s{(<a class="file") href="#"(.+?)>t/(.+?)</a>}{<a target="editor" href="/editor+t/$3.t+1" name="t/$3.t" $2>$3</a>}sg; |
$html =~ s{(<a class="file") href="#"(.+?)>t/(.+?)</a>}{<a target="editor" href="/editor+t/$3.t+1" name="t/$3.t" $2>$3</a>}sg; |
119 |
|
|
120 |
return |
$html = $self->editor_links( $html ); |
121 |
$self->editor_links( $html ) |
|
122 |
. qq|Test dependencies:<ul><li>| |
if ( my $depends = $self->depends ) { |
123 |
|
$html .= qq|Test dependencies:| |
124 |
|
. qq|<ul><li>| |
125 |
. join("</li>\n<li>", |
. join("</li>\n<li>", |
126 |
map { |
map { |
127 |
qq|<a href="#$_"><tt>$_</tt></a> ← | |
qq|<a href="#$_"><tt>$_</tt></a> ← | |
139 |
} @tests ) |
} @tests ) |
140 |
. qq|</li></ul>| |
. qq|</li></ul>| |
141 |
; |
; |
142 |
|
} |
143 |
|
|
144 |
} |
} |
145 |
|
|