From: drow <drow>
Date: Fri, 9 Mar 2007 15:20:13 +0000 (+0000)
Subject: 	* gdb.base/checkpoint.exp: Rewrite 600 checkpoint test to
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=b59c075aa82883adbc791709e8950688d3e83bcd;p=pf3gnuchains%2Fpf3gnuchains3x.git

	* gdb.base/checkpoint.exp: Rewrite 600 checkpoint test to
	collect output incrementally.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 81101fd7a2..e827efdb24 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-09  Daniel Jacobowitz  <dan@codesourcery.com>
+
+	* gdb.base/checkpoint.exp: Rewrite 600 checkpoint test to
+	collect output incrementally.
+
 2007-03-08  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
 
 	* gdb.mi/mi-var-cmd.exp: Allow value without "..." string
diff --git a/gdb/testsuite/gdb.base/checkpoint.exp b/gdb/testsuite/gdb.base/checkpoint.exp
index 1ca497a6ee..297e254e9f 100644
--- a/gdb/testsuite/gdb.base/checkpoint.exp
+++ b/gdb/testsuite/gdb.base/checkpoint.exp
@@ -359,8 +359,21 @@ gdb_expect {
 gdb_breakpoint $break2_loc
 gdb_test "continue" "breakpoint 2.*" "break2 with many checkpoints"
 
-gdb_test "info checkpoints" " 600 .* 0 .*" \
-    "info checkpoints with at least 600 checkpoints"
+set count 0
+set msg "info checkpoints with at least 600 checkpoints"
+gdb_test_multiple "info checkpoints" $msg {
+    -re "  $decimal process \[^\r\]*\r\n" {
+	incr count
+	exp_continue
+    }
+    -re "$gdb_prompt $" {
+	if { $count >= 600 } {
+	    pass $msg
+	} else {
+	    fail $msg
+	}
+    }
+}    
 
 #
 # OK, kill 'em all...