Add additional information when listing attachments

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";
     }