Mirror of the gdb-patches mailing list
 help / color / mirror / Atom feed
* [rfa/testsuite] One pass/fail per expect list
@ 2002-06-14 12:46 Andrew Cagney
  2002-08-01 14:49 ` Fernando Nasser
  2002-08-05 15:55 ` Kevin Buettner
  0 siblings, 2 replies; 7+ messages in thread
From: Andrew Cagney @ 2002-06-14 12:46 UTC (permalink / raw)
  To: gdb-patches

[-- Attachment #1: Type: text/plain, Size: 202 bytes --]

Hello,

The attached tweaks gdb_expect_list{} so that it only prints one pass / 
fail / ... message for the testcase.

What are peoples thoughts on this change and if positive, is the patch ok?

Andrew

[-- Attachment #2: diffs --]
[-- Type: text/plain, Size: 1860 bytes --]

2002-06-14  Andrew Cagney  <ac131313@redhat.com>

	* lib/gdb.exp (gdb_expect_list): Only print one pass, fail, or
	supress message.

Index: lib/gdb.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v
retrieving revision 1.20
diff -u -r1.20 gdb.exp
--- lib/gdb.exp	11 Jun 2002 20:37:05 -0000	1.20
+++ lib/gdb.exp	14 Jun 2002 19:21:30 -0000
@@ -1265,6 +1265,7 @@
     set ok 1
     if { $suppress_flag } {
 	set ok 0
+	unresolved "${test}"
     }
     while { ${index} < [llength ${list}] } {
 	set pattern [lindex ${list} ${index}]
@@ -1273,41 +1274,42 @@
 	    if { ${ok} } {
 		gdb_expect {
 		    -re "${pattern}${sentinel}" {
-			pass "${test}, pattern ${index} + sentinel"
+			# pass "${test}, pattern ${index} + sentinel"
 		    }
 		    -re "${sentinel}" {
-			fail "${test}, pattern ${index} + sentinel"
+			fail "${test} (pattern ${index} + sentinel)"
 			set ok 0
 		    }
 		    timeout {
-			fail "${test}, pattern ${index} + sentinel (timeout)"
+			fail "${test} (pattern ${index} + sentinel) (timeout)"
 			set ok 0
 		    }
 		}
 	    } else {
-		unresolved "${test}, pattern ${index} + sentinel"
+		# unresolved "${test}, pattern ${index} + sentinel"
 	    }
 	} else {
 	    if { ${ok} } {
 		gdb_expect {
 		    -re "${pattern}" {
-			pass "${test}, pattern ${index}"
+			# pass "${test}, pattern ${index}"
 		    }
 		    -re "${sentinel}" {
-			fail "${test}, pattern ${index}"
+			fail "${test} (pattern ${index})"
 			set ok 0
 		    }
 		    timeout {
-			fail "${test}, pattern ${index} (timeout)"
+			fail "${test} (pattern ${index}) (timeout)"
 			set ok 0
 		    }
 		}
 	    } else {
-		unresolved "${test}, pattern ${index}"
+		# unresolved "${test}, pattern ${index}"
 	    }
 	}
     }
     if { ${ok} } {
+	pass "${test}"
 	return 0
     } else {
 	return 1

^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2002-08-07 19:11 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-06-14 12:46 [rfa/testsuite] One pass/fail per expect list Andrew Cagney
2002-08-01 14:49 ` Fernando Nasser
2002-08-01 15:09   ` Andrew Cagney
2002-08-05 15:55 ` Kevin Buettner
2002-08-05 20:57   ` Andrew Cagney
2002-08-06 15:46     ` Kevin Buettner
2002-08-07 12:11       ` Andrew Cagney

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox