From: kseitz <kseitz>
Date: Tue, 17 Sep 2002 20:45:28 +0000 (+0000)
Subject:         * mi-var-cmd.exp: Add tests to check when varobj pinned to a
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=52ba36395536bb9480dd7e021d7ec4893d0515f1;p=pf3gnuchains%2Fsourceware.git

    * mi-var-cmd.exp: Add tests to check when varobj pinned to a
        selected frame changes type.
---

diff --git a/gdb/testsuite/gdb.mi/ChangeLog b/gdb/testsuite/gdb.mi/ChangeLog
index 24c4ef7099..5feba8dbc2 100644
--- a/gdb/testsuite/gdb.mi/ChangeLog
+++ b/gdb/testsuite/gdb.mi/ChangeLog
@@ -1,5 +1,10 @@
 2002-09-17  Keith Seitz  <keiths@redhat.com>
 
+	* mi-var-cmd.exp: Add tests to check when varobj pinned to a
+	selected frame changes type.
+
+2002-09-17  Keith Seitz  <keiths@redhat.com>
+
 	* mi-console.exp: Update copyright.
 	* mi-var-block.exp: Likewise.
 	* mi-var-cmd.exp: Likewise.
diff --git a/gdb/testsuite/gdb.mi/mi-var-cmd.exp b/gdb/testsuite/gdb.mi/mi-var-cmd.exp
index 70a0d683d6..8be0d8dc7d 100644
--- a/gdb/testsuite/gdb.mi/mi-var-cmd.exp
+++ b/gdb/testsuite/gdb.mi/mi-var-cmd.exp
@@ -519,5 +519,34 @@ mi_gdb_test "-var-delete l" \
 	"\\^done,ndeleted=\"1\"" \
 	"delete var l"
 
+# Test whether we can follow the name of a variable through multiple
+# stack frames.
+mi_gdb_test "-break-insert do_special_tests" \
+  {\^done,bkpt=.*} \
+  "set breakpoint at do_special_tests"
+
+mi_continue_to {.*} do_special_tests {.*} {.*var-cmd.c} {.*} {stop in do_special_tests}
+
+mi_gdb_test "-var-create selected_a @ a" \
+  {\^done,name="selected_a",numchild="0",type="int"} \
+  "create selected_a"
+
+mi_gdb_test "-break-insert incr_a" \
+  {\^done,bkpt=.*} \
+  "set breakpoint at incr_a"
+
+mi_continue_to {.*} incr_a {.*} {.*var-cmd.c} {.*} {stop in incr_a}
+
+mi_gdb_test "-var-update selected_a" \
+  {\^done,changelist=\{name="selected_a",in_scope="true",new_type="char",new_num_children="0"\}} \
+  "update selected_a in incr_a"
+
+mi_next "step a line in incr_a"
+mi_next "return from incr_a to do_special_tests"
+
+mi_gdb_test "-var-update selected_a" \
+  {\^done,changelist=\{name="selected_a",in_scope="true",new_type="int",new_num_children="0"\}} \
+  "update selected_a in do_special_tests"
+
 mi_gdb_exit
 return 0