diff options
| -rw-r--r-- | gdb/testsuite/gdb.dap/scopes.exp | 27 |
1 files changed, 9 insertions, 18 deletions
diff --git a/gdb/testsuite/gdb.dap/scopes.exp b/gdb/testsuite/gdb.dap/scopes.exp index a8a0c01..e0c7786 100644 --- a/gdb/testsuite/gdb.dap/scopes.exp +++ b/gdb/testsuite/gdb.dap/scopes.exp @@ -134,23 +134,14 @@ set val [dap_check_request_and_response "fetch first register" \ "variables" \ [format {o variablesReference [i %d] count [i 1]} $num]] -# Try setting the value to something else. -set val [dict get [lindex $val 0] body variables] -set name [dict get [lindex $val 0] name] -set val [dict get [lindex $val 0] value] -# Just make sure it is different from the original value. -set val [expr {$val ^ 7}] - -# setVariable isn't implemented yet, so use the register name. Note -# that we sneak the "$" into the name, written in a slightly funny way -# to work around apparent TON limitations. -set response [dap_check_request_and_response "set first register" \ - setExpression \ - [format {o expression [s \$%s] value [s %d] frameId [i %d]} \ - $name $val $frame_id]] -set response [lindex $response 0] - -gdb_assert {[dict get $response body value] == $val} \ - "setting register yields updated value" +set num [dict get $scope variablesReference] +set refs [lindex [dap_check_request_and_response "set variable scalar" \ + "setVariable" \ + [format {o variablesReference [i %d] name [s scalar] \ + value [s 32]} \ + $num]] \ + 0] +gdb_assert { [dict get $refs body value] == 32 } \ + "setting variable yields updated value" dap_shutdown |