diff options
Diffstat (limited to 'qtest/bin')
-rwxr-xr-x | qtest/bin/qtest-driver | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/qtest/bin/qtest-driver b/qtest/bin/qtest-driver index ce08f29f..c37c4d1d 100755 --- a/qtest/bin/qtest-driver +++ b/qtest/bin/qtest-driver @@ -218,7 +218,7 @@ if (defined $tc_log) print_xml(">\n"); print_junit("<?xml version=\"1.0\"?>\n" . "<testsuites>\n"); -my @invalid_test_suites = (); +my @failed_test_suites = (); foreach my $test (@tests) { print_and_log("\nRunning $test\n"); @@ -228,7 +228,7 @@ foreach my $test (@tests) if (scalar(@results) != 5) { print_and_log("test driver $test returned invalid results\n"); - push(@invalid_test_suites, $test); + push(@failed_test_suites, $test); } else { @@ -263,6 +263,10 @@ foreach my $test (@tests) my $passed = (($extra == 0) && ($missing == 0) && ($fails == 0) && ($xpasses == 0)); + if (! $passed) + { + push(@failed_test_suites, $test); + } print_xml(" <testsummary\n" . " overall-outcome=\"" .($passed ? 'pass' : 'fail') . "\"\n". @@ -284,7 +288,7 @@ tc_do_final_checks(); my $okay = ((($totpasses + $totxfails) == $tottests) && ($errors == 0) && ($totmissing == 0) && ($totextra == 0) && - ($coverage_okay) && (scalar(@invalid_test_suites) == 0)); + ($coverage_okay) && (scalar(@failed_test_suites) == 0)); print "\n"; print_and_pad("Overall test suite"); @@ -301,10 +305,10 @@ else } my $summary = "\nTESTS COMPLETE. Summary:\n\n"; -if (@invalid_test_suites) +if (@failed_test_suites) { - $summary .= "INVALID TEST SUITES:\n"; - foreach my $t (@invalid_test_suites) + $summary .= "FAILED TEST SUITES:\n"; + foreach my $t (@failed_test_suites) { $summary .= " $t\n"; } |