Reviewed and approved by Jim Blandy
2006-02-12 Fred Fish <fnf@specifix.com> * gdb.base/scope.exp (test_at_main): Use gdb_test_multiple to handle cases where it takes two "next" commands to skip past the init call.
This commit is contained in:
parent
8b9a88ea4a
commit
ac6e4f3115
2 changed files with 18 additions and 2 deletions
|
@ -1,3 +1,9 @@
|
|||
2006-02-12 Fred Fish <fnf@specifix.com>
|
||||
|
||||
* gdb.base/scope.exp (test_at_main): Use gdb_test_multiple
|
||||
to handle cases where it takes two "next" commands to skip
|
||||
past the init call.
|
||||
|
||||
2006-02-07 Joel Brobecker <brobecker@adacore.com>
|
||||
|
||||
* gdb.ada/array_return.exp: Mark the last test as expected to fail
|
||||
|
|
|
@ -63,8 +63,18 @@ proc test_at_main {} {
|
|||
|
||||
# skip past init. There may be a call to __main at the start of
|
||||
# main, so the first next may only get us to the init0 call.
|
||||
if [gdb_test "next" "$decimal.*foo \\(\\);" "next over init0() in main" "$decimal.*init0 \\(\\);" "next"] {
|
||||
gdb_suppress_tests ;
|
||||
gdb_test_multiple "next" "next over init0() in main" {
|
||||
-re "$decimal.*foo \\(\\).*$gdb_prompt $" {
|
||||
pass "next over init0() in main"
|
||||
}
|
||||
-re "$decimal.*init0 \\(\\).*$gdb_prompt $" {
|
||||
send_gdb "next\n"
|
||||
exp_continue
|
||||
}
|
||||
-re ".*$gdb_prompt $" {
|
||||
fail "next over init0() in main"
|
||||
gdb_suppress_tests
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
|
Loading…
Reference in a new issue