Re: ld plugin bfd_make_readable leak
[binutils-gdb.git] / gdb / testsuite / gdb.server / remote-read-msgs.exp
blobe204655b044c9d41d2ffd82d8610f65d1a440ed2
1 # This testcase is part of GDB, the GNU debugger.
3 # Copyright 2024 Free Software Foundation, Inc.
5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
18 # Setup a number of directories in the debug-file-directory, start gdbserver
19 # and connect GDB.  The debug information is downloaded from the last
20 # directory in the debug-file-directory.
22 # We are checking that GDB reports 'Reading <filename> from remote target'
23 # only for the paths that are actually being read, and not for paths that
24 # GDB is simply probing for existence.
26 load_lib gdbserver-support.exp
28 require allow_gdbserver_tests
29 require {!is_remote host}
31 standard_testfile
33 if {[build_executable "failed to prepare" $testfile $srcfile \
34     {debug build-id}] == -1} {
35     return -1
38 # Split out BINFILE.debug.  Remove debug from BINFILE.
39 if {[gdb_gnu_strip_debug $binfile] != 0} {
40     return -1
43 # Get the '.build-id/xx/xxx...xxx' part of the filename.
44 set build_id_filename [build_id_debug_filename_get $binfile]
46 set hidden_binfile [standard_output_file "hidden_$testfile"]
47 set hidden_debuginfo [standard_output_file "hidden_$testfile.debug"]
49 # Hide (rename) BINFILE and associated debug information, this should ensure
50 # GDB can't find it directly.
51 remote_exec build "mv $binfile $hidden_binfile"
52 remote_exec build "mv ${binfile}.debug $hidden_debuginfo"
54 # Helper called from gdb_finish when the 'target' is remote.  Ensure the
55 # debug directory we create is deleted.
56 proc cleanup_remote_target {} {
57     remote_exec target "rm -fr debug/"
60 if { ![is_remote target] } {
61     set gdbserver_dir [standard_output_file "gdbserver-dir"]/
62 } else {
63     lappend gdb_finish_hooks cleanup_remote_target
64     set gdbserver_dir ""
67 # Copy files to the target (if needed).
68 set target_binfile [gdb_remote_download target $hidden_binfile]
69 set target_debuginfo [gdb_remote_download target $hidden_debuginfo]
71 # Setup the debug information on the target.
72 remote_exec target \
73     "mkdir -p ${gdbserver_dir}debug/[file dirname $build_id_filename]"
74 remote_exec target \
75     "ln -sf $target_debuginfo ${gdbserver_dir}debug/$build_id_filename"
77 # Reading debug info from the remote target can take a bit of time, so
78 # increase the timeout.
79 with_timeout_factor 5 {
80     # Restart GDB.
81     clean_restart
83     # Add some dummy entries to the debug-file-directory search list.
84     gdb_test_no_output "set debug-file-directory xxx:yyy:debug"
86     # Set the sysroot.
87     gdb_test_no_output "set sysroot target:"
89     # Make sure we're disconnected, in case we're testing with an
90     # extended-remote board, therefore already connected.
91     gdb_test "disconnect" ".*"
93     # Start gdbserver.  This needs to be done after starting GDB.  When
94     # gdbserver is running local to GDB, start gdbserver in a sub-directory,
95     # this prevents GDB from finding the debug information itself.
96     if { ![is_remote target] } {
97         with_cwd $gdbserver_dir {
98             set res [gdbserver_start "" $target_binfile]
99         }
100     } else {
101         set res [gdbserver_start "" $target_binfile]
102     }
103     set gdbserver_protocol [lindex $res 0]
104     set gdbserver_gdbport [lindex $res 1]
106     # Connect to gdbserver.  The output will be placed into the global
107     # GDB_TARGET_REMOTE_CMD_MSG, and we'll match against this below.
108     gdb_assert {[gdb_target_cmd $gdbserver_protocol $gdbserver_gdbport] == 0} \
109         "connect to gdbserver"
111     gdb_assert { ![regexp "Reading xxx/\[^\r\n\]+ from remote target\\.\\.\\.\r\n" \
112                        $gdb_target_remote_cmd_msg] \
113                      && ![regexp "Reading yyy/\[^\r\n\]+ from remote target\\.\\.\\.\r\n" \
114                               $gdb_target_remote_cmd_msg] } \
115         "check xxx/ and yyy/ are not mentioned"
117     gdb_assert { [regexp "Reading debug/[string_to_regexp $build_id_filename] from remote target\\.\\.\\.\r\n" \
118                       $gdb_target_remote_cmd_msg] } \
119         "check debug information is found"