gdb/testsuite/
* gdb.base/range-stepping.exp: Skip the rest of tests if the test fails. * lib/range-stepping-support.exp (exec_cmd_expect_vCont_count): Return 0 if the test passes, otherwise return 1.
This commit is contained in:
parent
5901af59c9
commit
db1ac43683
3 changed files with 22 additions and 2 deletions
|
@ -1,3 +1,11 @@
|
|||
2013-05-24 Yao Qi <yao@codesourcery.com>
|
||||
Pedro Alves <palves@redhat.com>
|
||||
|
||||
* gdb.base/range-stepping.exp: Skip the rest of tests if the
|
||||
test fails.
|
||||
* lib/range-stepping-support.exp (exec_cmd_expect_vCont_count):
|
||||
Return 0 if the test passes, otherwise return 1.
|
||||
|
||||
2013-05-23 Doug Evans <dje@google.com>
|
||||
|
||||
* boards/fission-dwp.exp: New file.
|
||||
|
|
|
@ -76,7 +76,15 @@ with_test_prefix "multi insns" {
|
|||
# <-- T05
|
||||
# --> vCont;rSTART,END (range step)
|
||||
# <-- T05
|
||||
exec_cmd_expect_vCont_count "next" 1 1
|
||||
set result [exec_cmd_expect_vCont_count "next" 1 1]
|
||||
if { $result } {
|
||||
# This is the first range-stepping test, and the simplest
|
||||
# one. If it fails, probably the rest of the tests would
|
||||
# fail too, and the huge number of rsp packets in the test
|
||||
# with the time-consuming loop would blow up the gdb.log file.
|
||||
# Skip the rest of the tests.
|
||||
return
|
||||
}
|
||||
|
||||
set pc_after_stepping ""
|
||||
set msg "pc after stepping"
|
||||
|
|
|
@ -14,7 +14,8 @@
|
|||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
# Execute command CMD and check that GDB sends the expected number of
|
||||
# vCont;s and vCont;r packets.
|
||||
# vCont;s and vCont;r packets. Returns 0 if the test passes,
|
||||
# otherwise returns 1.
|
||||
|
||||
proc exec_cmd_expect_vCont_count { cmd exp_vCont_s exp_vCont_r } {
|
||||
global gdb_prompt
|
||||
|
@ -24,6 +25,7 @@ proc exec_cmd_expect_vCont_count { cmd exp_vCont_s exp_vCont_r } {
|
|||
set test "${cmd}: vCont;s=${exp_vCont_s} vCont;r=${exp_vCont_r}"
|
||||
set r_counter 0
|
||||
set s_counter 0
|
||||
set ret 1
|
||||
gdb_test_multiple $cmd $test {
|
||||
-re "vCont;s\[^\r\n\]*Packet received: T\[\[:xdigit:\]\]\[\[:xdigit:\]\]" {
|
||||
incr s_counter
|
||||
|
@ -40,6 +42,7 @@ proc exec_cmd_expect_vCont_count { cmd exp_vCont_s exp_vCont_r } {
|
|||
-re "$gdb_prompt $" {
|
||||
if { $r_counter == ${exp_vCont_r} && $s_counter == ${exp_vCont_s} } {
|
||||
pass $test
|
||||
set ret 0
|
||||
} else {
|
||||
fail $test
|
||||
}
|
||||
|
@ -47,4 +50,5 @@ proc exec_cmd_expect_vCont_count { cmd exp_vCont_s exp_vCont_r } {
|
|||
}
|
||||
|
||||
gdb_test_no_output "set debug remote 0" ""
|
||||
return $ret
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue