diff options
| author | Daniel Jacobowitz <drow@false.org> | 2007-03-09 15:20:16 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <drow@false.org> | 2007-03-09 15:20:16 +0000 |
| commit | 47b67b6080c44cfa45aab70b9966da28908c1021 (patch) | |
| tree | 38419c2e502f6269a2fcaf579afb2576fbdd15ca /gdb/testsuite/gdb.base/checkpoint.exp | |
| parent | b1b7d09b07fca21544d7c10e61dce82417f99554 (diff) | |
| download | gdb-47b67b6080c44cfa45aab70b9966da28908c1021.zip gdb-47b67b6080c44cfa45aab70b9966da28908c1021.tar.gz gdb-47b67b6080c44cfa45aab70b9966da28908c1021.tar.bz2 | |
* gdb.base/checkpoint.exp: Rewrite 600 checkpoint test to
collect output incrementally.
Diffstat (limited to 'gdb/testsuite/gdb.base/checkpoint.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/checkpoint.exp | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.base/checkpoint.exp b/gdb/testsuite/gdb.base/checkpoint.exp index 1ca497a..297e254 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... |