/[Frey]/trunk/lib/Frey/Test/Runner.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Test/Runner.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 506 by dpavlin, Mon Nov 24 22:56:41 2008 UTC revision 508 by dpavlin, Tue Nov 25 00:28:52 2008 UTC
# Line 77  sub as_markup { Line 77  sub as_markup {
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 );
# Line 115  sub as_markup { Line 117  sub as_markup {
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> &larr; |                                  qq|<a href="#$_"><tt>$_</tt></a> &larr; |
# Line 135  sub as_markup { Line 139  sub as_markup {
139                          } @tests )                          } @tests )
140                  . qq|</li></ul>|                  . qq|</li></ul>|
141                  ;                  ;
142            }
143                    
144  }  }
145    
Legend:
Removed from v.506  
changed lines
  Added in v.508
  ViewVC Help
Powered by ViewVC 1.1.26