Lines Matching refs:Test_Results

36 my @Test_Results = ();  share(@Test_Results);
210     $Test_Results[$Curr_Test-1] = $result;
453     $Test_Results[$Curr_Test-1] = \%result;
489     $Test_Results[$Curr_Test-1] = \%result;
683         if( $num > @Test_Results ) {
684             my $start = @Test_Results ? $#Test_Results + 1 : 0;
694                 $Test_Results[$_] = \%result;
707     return map { $_->{'ok'} } @Test_Results;
713     return @Test_Results;
747     _whoa($Curr_Test != @Test_Results,
800     if( @Test_Results ) {
810         for my $idx ($#Test_Results..$Expected_Tests-1) {
813             $Test_Results[$idx] = \%empty_result
814               unless defined $Test_Results[$idx];
817         my $num_failed = grep !$_->{'ok'}, @Test_Results[0..$Expected_Tests-1];
818         $num_failed += abs($Expected_Tests - @Test_Results);