[binutils-gdb] [gdb/testsuite] Fix gdb.base/fork-no-detach-follow-child-dlopen.exp for remote target

[binutils-gdb] [gdb/testsuite] Fix gdb.base/fork-no-detach-follow-child-dlopen.exp for remote target

[Tom de Vries]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=dfe30a41c8c1237f70a9cc31cc8cc90f1c1a46f6

commit dfe30a41c8c1237f70a9cc31cc8cc90f1c1a46f6
Author: Tom de Vries <tdevries@suse.de>
Date:   Tue Mar 7 15:28:52 2023 +0100

    [gdb/testsuite] Fix gdb.base/fork-no-detach-follow-child-dlopen.exp for remote target
    
    Fix test-case gdb.base/fork-no-detach-follow-child-dlopen.exp for target board
    remote-gdbserver-on-localhost.exp by using gdb_download_shlib and gdb_locate_shlib.
    
    Tested on x86_64-linux.

Diff:
---
 gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp b/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp
index 6bc734ebf0f..94111fe3beb 100644
--- a/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp
+++ b/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp
@@ -32,14 +32,16 @@ if { [gdb_compile_shlib $srcdir/$subdir/$srcfile2 $shlib_path {debug}] != "" } {
     return
 }
 
-set opts [list shlib_load additional_flags=-DSHLIB_PATH="${shlib_path}"]
+set shlib_path_target [gdb_download_shlib $::shlib_path]
+
+set opts [list shlib_load additional_flags=-DSHLIB_PATH="${shlib_path_target}"]
 if { [build_executable "failed to prepare" ${testfile} ${srcfile} $opts] } {
     return
 }
 
 proc do_test {} {
     clean_restart $::binfile
-    gdb_load_shlib $::shlib_path
+    gdb_locate_shlib $::shlib_path
     gdb_test_no_output "set follow-fork-mode child"
     gdb_test_no_output "set detach-on-fork off"