@@ -1156,24 +1156,25 @@ sub _read_result_file ($self, $upload_up_to, $extra_test_order) {
1156
1156
my $test_order = $self -> test_order;
1157
1157
my (%ret , $last_test_module );
1158
1158
return (\%ret , $last_test_module ) unless $test_order ;
1159
+ my $skipped = 0;
1159
1160
for my $test_module (@$test_order ) {
1160
- my $test = $test_module -> {name };
1161
- my $result = $self -> _read_module_result($test );
1162
- last unless $result ;
1161
+ ++$skipped and next unless my $test = $test_module -> {name };
1162
+ ++$skipped and last unless my $result = $self -> _read_module_result($test );
1163
1163
1164
1164
$last_test_module = $test ;
1165
1165
$ret {$test } = $result ;
1166
1166
if ($result -> {extra_test_results }) {
1167
1167
for my $extra_test (@{$result -> {extra_test_results }}) {
1168
- my $extra_result = $self -> _read_module_result( $ extra_test-> {name }) ;
1169
- next unless $extra_result ;
1170
- $ret {$extra_test -> { name } } = $extra_result ;
1168
+ ++ $skipped and next unless my $extra_test_name = $extra_test -> {name };
1169
+ ++ $skipped and next unless my $extra_result = $self -> _read_module_result( $extra_test_name ) ;
1170
+ $ret {$extra_test_name } = $extra_result ;
1171
1171
}
1172
1172
push @{$extra_test_order }, @{$result -> {extra_test_results }};
1173
1173
}
1174
1174
1175
1175
last if $test eq $upload_up_to ;
1176
1176
}
1177
+ log_debug " Skipped $skipped invalid test modules or extra tests" if $skipped ;
1177
1178
return (\%ret , $last_test_module );
1178
1179
}
1179
1180
@@ -1185,7 +1186,7 @@ sub _reduce_test_order ($self, $last_test_module) {
1185
1186
1186
1187
my $modules_considered_processed = 0;
1187
1188
for my $test_module (@$test_order ) {
1188
- my $test_name = $test_module -> {name };
1189
+ next unless my $test_name = $test_module -> {name };
1189
1190
last if $test_name eq $current_test_module ;
1190
1191
++$modules_considered_processed ;
1191
1192
last if $test_name eq $last_test_module ;
0 commit comments