19 |
required => 1, |
required => 1, |
20 |
lazy => 1, # FIXME ask users which tests to run |
lazy => 1, # FIXME ask users which tests to run |
21 |
default => sub { |
default => sub { |
|
# [ glob('t/*.t') ] # all tests |
|
22 |
[ Frey::SVK->modified ] |
[ Frey::SVK->modified ] |
23 |
}, |
}, |
24 |
documentation => 'run tests which are result of modifications or whole full tests', |
documentation => 'run tests which are result of modifications or whole full tests', |
105 |
|
|
106 |
if ( ! @tests ) { |
if ( ! @tests ) { |
107 |
warn "can't find any tests ", dump( $self->tests ), " within depends ", dump( $self->test_because ); |
warn "can't find any tests ", dump( $self->tests ), " within depends ", dump( $self->test_because ); |
108 |
warn "running all tests instead"; |
# warn "running all tests instead"; |
109 |
@tests = glob('t/*.t'); |
# @tests = glob('t/*.t'); |
110 |
|
@tests = ( qw{t/00-load.t t/pod.t} ); # XXX default tests |
111 |
} |
} |
112 |
|
|
113 |
$self->title( join(' ', @tests ) ); |
$self->title( join(' ', @tests ) ); |
163 |
} @tests ) |
} @tests ) |
164 |
. qq|</li></ul>| |
. qq|</li></ul>| |
165 |
; |
; |
166 |
|
} else { |
167 |
|
warn "# test_because empty"; |
168 |
} |
} |
169 |
|
|
170 |
$self->add_icon( $1 ) if $html =~ m{class="(passed|failed)"}; |
$self->add_icon( $1 ) if $html =~ m{class="(passed|failed)"}; |