gdb/testsuite/gdb.dap/assign.exp

   1 # Copyright 2023-2024 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 # Test the setVariable request.
  17
  18 require allow_dap_tests
  19
  20 load_lib dap-support.exp
  21
  22 standard_testfile
  23
  24 if {[build_executable ${testfile}.exp $testfile] == -1} {
  25     return
  26 }
  27
  28 set remote_python_file [gdb_remote_download host \
  29                             ${srcdir}/${subdir}/${testfile}.py]
  30
  31 save_vars GDBFLAGS {
  32     append GDBFLAGS " -iex \"source $remote_python_file\""
  33
  34     if {[dap_initialize] == ""} {
  35         return
  36     }
  37 }
  38
  39 set launch_id [dap_launch $testfile]
  40
  41 set line [gdb_get_line_number "STOP"]
  42 set obj [dap_check_request_and_response "set breakpoint by line number" \
  43              setBreakpoints \
  44              [format {o source [o path [%s]] breakpoints [a [o line [i %d]]]} \
  45                   [list s $srcfile] $line]]
  46 set line_bpno [dap_get_breakpoint_number $obj]
  47
  48 dap_check_request_and_response "configurationDone" configurationDone
  49
  50 dap_check_response "launch response" launch $launch_id
  51
  52 dap_wait_for_event_and_check "stopped at line breakpoint" stopped \
  53     "body reason" breakpoint \
  54     "body hitBreakpointIds" $line_bpno
  55
  56 set bt [lindex [dap_check_request_and_response "backtrace" stackTrace \
  57                     {o threadId [i 1]}] \
  58             0]
  59 set frame_id [dict get [lindex [dict get $bt body stackFrames] 0] id]
  60
  61 set scopes [dap_check_request_and_response "get scopes" scopes \
  62                 [format {o frameId [i %d]} $frame_id]]
  63 set scopes [dict get [lindex $scopes 0] body scopes]
  64
  65 lassign $scopes scope reg_scope
  66 gdb_assert {[dict get $scope name] == "Locals"} "scope is locals"
  67 gdb_assert {[dict get $scope namedVariables] == 1} "one var in scope"
  68
  69 set num [dict get $scope variablesReference]
  70 set refs [lindex [dap_check_request_and_response "fetch variable" \
  71                       "variables" \
  72                       [format {o variablesReference [i %d] count [i 1]} \
  73                            $num]] \
  74               0]
  75
  76 set desc [dict get $refs body variables]
  77 gdb_assert {[llength $desc] == 1} "only one variable fetched"
  78 set desc [lindex $desc 0]
  79
  80 set saved_ref [dict get $desc variablesReference]
  81
  82 proc check_vars {prefix var varref summary} {
  83     with_test_prefix $prefix {
  84         gdb_assert {[dict get $var name] == "value"} "variable name"
  85         gdb_assert {[dict get $var variablesReference] == $varref} \
  86             "variable reference"
  87         gdb_assert {[dict get $var value] == $summary} \
  88             "variable value"
  89     }
  90 }
  91
  92 check_vars initial $desc $saved_ref full
  93
  94 set refs [lindex [dap_check_request_and_response "assign empty to variable" \
  95                       "setVariable" \
  96                       [format {o variablesReference [i %d] name [s value] \
  97                                    value [s empty]} \
  98                            $num]] \
  99               0]
 100 check_vars "assign empty" [dict get $refs body] 0 empty
 101
 102 set refs [lindex [dap_check_request_and_response "assign full to variable" \
 103                       "setVariable" \
 104                       [format {o variablesReference [i %d] name [s value] \
 105                                    value [s full]} \
 106                            $num]] \
 107               0]
 108 check_vars "assign full" [dict get $refs body] $saved_ref full
 109
 110 # Now fetch the children of the variable, to check that the shadowing
 111 # workaround works.
 112 gdb_assert {[dict get $refs body namedVariables] == 2} \
 113     "two children of variable"
 114
 115 set num [dict get $refs body variablesReference]
 116 set refs [lindex [dap_check_request_and_response \
 117                       "fetch children of variable" "variables" \
 118                       [format {o variablesReference [i %d] count [i 2]} \
 119                            $num]] \
 120               0]
 121
 122 lassign [dict get $refs body variables] one two
 123 gdb_assert {[dict get $one name] != [dict get $two name]} \
 124     "children have different names"
 125
 126 dap_shutdown