/[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 511 by dpavlin, Tue Nov 25 13:39:44 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;                          $_ ne '' &&
83                            ! m{$0} # break recursion      
84                    } sort keys %{ $depends } unless @tests;
85            }
86    
87          push @{ $self->status }, { test => { depends => $self->depends } }; # FIXME          $self->add_status( { test => { depends => $self->depends } } );
88    
89          if ( ! @tests ) {          if ( ! @tests ) {
90                  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 118  sub as_markup {
118    
119          $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;
120    
121          return          $html = $self->editor_links( $html );
122                  $self->editor_links( $html )  
123                  . qq|Test dependencies:<ul><li>|          if ( my $depends = $self->depends ) {
124                    $html .= qq|Test dependencies:|
125                    . qq|<ul><li>|
126                  . join("</li>\n<li>",                  . join("</li>\n<li>",
127                          map {                          map {
128                                  qq|<a href="#$_"><tt>$_</tt></a> &larr; |                                  qq|<a href="#$_"><tt>$_</tt></a> &larr; |
# Line 135  sub as_markup { Line 140  sub as_markup {
140                          } @tests )                          } @tests )
141                  . qq|</li></ul>|                  . qq|</li></ul>|
142                  ;                  ;
143            }
144                    
145  }  }
146    
Legend:
Removed from v.506  
changed lines
  Added in v.511
  ViewVC Help
Powered by ViewVC 1.1.26