diff options
author | Tom Tromey <tromey@adacore.com> | 2023-07-24 09:14:20 -0600 |
---|---|---|
committer | Tom Tromey <tromey@adacore.com> | 2023-08-01 12:52:26 -0600 |
commit | f131a5790812c3ca69a4fcd9cd2b9ac15b29d181 (patch) | |
tree | 9897069805cad9ce21c12180e9b7777097ebf18f /gdb/testsuite/gdb.dap | |
parent | 7abfd03742d2cea591dca940aa748e865f906018 (diff) | |
download | gdb-f131a5790812c3ca69a4fcd9cd2b9ac15b29d181.zip gdb-f131a5790812c3ca69a4fcd9cd2b9ac15b29d181.tar.gz gdb-f131a5790812c3ca69a4fcd9cd2b9ac15b29d181.tar.bz2 |
Add "cwd" parameter to DAP launch request
This adds the "cwd" parameter to the DAP launch request.
This came up here:
https://github.com/eclipse-cdt-cloud/cdt-gdb-adapter/issues/90
... and seemed like a good idea.
Reviewed-By: Eli Zaretskii <eliz@gnu.org>
Diffstat (limited to 'gdb/testsuite/gdb.dap')
-rw-r--r-- | gdb/testsuite/gdb.dap/cwd.exp | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.dap/cwd.exp b/gdb/testsuite/gdb.dap/cwd.exp new file mode 100644 index 0000000..394fe5a --- /dev/null +++ b/gdb/testsuite/gdb.dap/cwd.exp @@ -0,0 +1,40 @@ +# Copyright 2023 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/>. + +# Test the cwd extension. + +require allow_dap_tests {!is_remote host} + +load_lib dap-support.exp + +standard_testfile attach.c + +if {[build_executable ${testfile}.exp $testfile $srcfile] == -1} { + return +} + +# Starting the inferior will fail if the change of cwd does not work. +set the_dir [file dirname $testfile] +set the_file [file tail $testfile] +if {[dap_launch $the_file cwd $the_dir stop_at_main 1] == ""} { + return +} + +dap_check_request_and_response "start inferior" configurationDone +# We didn't explicitly set a breakpoint, so if we hit one, it worked. +dap_wait_for_event_and_check "stopped at function breakpoint" stopped \ + "body reason" breakpoint + +dap_shutdown |