* gdb.base/checkpoint.exp: Rewrite 600 checkpoint test to

	collect output incrementally.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 81101fd7a2a1d5d3ac943e55e08879d04198a308..e827efdb24f59072fa9c1d0fb11bd971eb5b3e36 100644 (file)
--- 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 1ca497a6ee3a1537b48ea51bfb3dcf1178d9c35c..297e254e9f490e2f60553d2a74a2695cf95b94a9 100644 (file)
--- 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...