aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/lib/range-stepping-support.exp
diff options
context:
space:
mode:
authorPedro Alves <palves@redhat.com>2013-05-23 17:19:05 +0000
committerPedro Alves <palves@redhat.com>2013-05-23 17:19:05 +0000
commitbc5065a70f840e8f0b0aaddfb0d99464e2c8771d (patch)
treef5b53511d51ee8da7c8e7975bc33de308a497760 /gdb/testsuite/lib/range-stepping-support.exp
parentc2d6af84da44465f30e3bb487721128dfe03d0e4 (diff)
downloadgdb-bc5065a70f840e8f0b0aaddfb0d99464e2c8771d.zip
gdb-bc5065a70f840e8f0b0aaddfb0d99464e2c8771d.tar.gz
gdb-bc5065a70f840e8f0b0aaddfb0d99464e2c8771d.tar.bz2
range stepping: tests
This adds tests to verify range stepping is used as expected, by inspecting the RSP traffic, looking for vCont;s and vCont;r packets. gdb/testsuite/ 2013-05-23 Yao Qi <yao@codesourcery.com> Pedro Alves <palves@redhat.com> * gdb.base/range-stepping.c: New file. * gdb.base/range-stepping.exp: New file. * gdb.trace/range-stepping.c: New file. * gdb.trace/range-stepping.exp: New file. * lib/range-stepping-support.exp: New file.
Diffstat (limited to 'gdb/testsuite/lib/range-stepping-support.exp')
-rw-r--r--gdb/testsuite/lib/range-stepping-support.exp50
1 files changed, 50 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/range-stepping-support.exp b/gdb/testsuite/lib/range-stepping-support.exp
new file mode 100644
index 0000000..d849665
--- /dev/null
+++ b/gdb/testsuite/lib/range-stepping-support.exp
@@ -0,0 +1,50 @@
+# Copyright 2013 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# 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.
+
+proc exec_cmd_expect_vCont_count { cmd exp_vCont_s exp_vCont_r } {
+ global gdb_prompt
+
+ gdb_test_no_output "set debug remote 1" ""
+
+ set test "${cmd}: vCont;s=${exp_vCont_s} vCont;r=${exp_vCont_r}"
+ set r_counter 0
+ set s_counter 0
+ gdb_test_multiple $cmd $test {
+ -re "vCont;s\[^\r\n\]*Packet received: T\[\[:xdigit:\]\]\[\[:xdigit:\]\]" {
+ incr s_counter
+ exp_continue
+ }
+ -re "vCont;r\[^\r\n\]*Packet received: T\[\[:xdigit:\]\]\[\[:xdigit:\]\]" {
+ incr r_counter
+ exp_continue
+ }
+ -re "\r\n" {
+ # Prevent overflowing the expect buffer.
+ exp_continue
+ }
+ -re "$gdb_prompt $" {
+ if { $r_counter == ${exp_vCont_r} && $s_counter == ${exp_vCont_s} } {
+ pass $test
+ } else {
+ fail $test
+ }
+ }
+ }
+
+ gdb_test_no_output "set debug remote 0" ""
+}