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:
Yao Qi 2013-05-24 09:57:12 +00:00
parent 5901af59c9
commit db1ac43683
3 changed files with 22 additions and 2 deletions

View file

@ -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.

View 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"

View file

@ -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
}