diff options
| author | Keith Seitz <keiths@redhat.com> | 2002-09-17 20:45:28 +0000 |
|---|---|---|
| committer | Keith Seitz <keiths@redhat.com> | 2002-09-17 20:45:28 +0000 |
| commit | 6f1d84a5f0310e48c3a6b757da9526bba12a1e78 (patch) | |
| tree | 40b79f21ac9516efb1ea536ee2a9a72d6c5740f0 /gdb/testsuite/gdb.mi | |
| parent | 135c175f577d6c1c970aba9db721a029a0f59804 (diff) | |
| download | gdb-6f1d84a5f0310e48c3a6b757da9526bba12a1e78.zip gdb-6f1d84a5f0310e48c3a6b757da9526bba12a1e78.tar.gz gdb-6f1d84a5f0310e48c3a6b757da9526bba12a1e78.tar.bz2 | |
* mi-var-cmd.exp: Add tests to check when varobj pinned to a
selected frame changes type.
Diffstat (limited to 'gdb/testsuite/gdb.mi')
| -rw-r--r-- | gdb/testsuite/gdb.mi/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.mi/mi-var-cmd.exp | 29 |
2 files changed, 34 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.mi/ChangeLog b/gdb/testsuite/gdb.mi/ChangeLog index 24c4ef7..5feba8d 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 70a0d68..8be0d8d 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 |