[binutils-gdb] [gdb/testsuite] Fix /gdb.guile/scm-parameter.exp for remote host

[Tom de Vries]

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

commit 5fc60431a8739f502450e1e75695acf15b519961
Author: Tom de Vries <tdevries@suse.de>
Date:   Wed Mar 29 08:01:42 2023 +0200

    [gdb/testsuite] Fix /gdb.guile/scm-parameter.exp for remote host
    
    Fix test-case gdb.guile/scm-parameter.exp for remote host by taking into
    account that gdb_reinitialize_dir has no effect for remote host.
    
    Tested on x86_64-linux.

Diff:
---
 gdb/testsuite/gdb.guile/scm-parameter.exp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gdb/testsuite/gdb.guile/scm-parameter.exp b/gdb/testsuite/gdb.guile/scm-parameter.exp
index 2e9d9ed9a5d..e2f82a1e738 100644
--- a/gdb/testsuite/gdb.guile/scm-parameter.exp
+++ b/gdb/testsuite/gdb.guile/scm-parameter.exp
@@ -34,8 +34,15 @@ proc scm_param_test_maybe_no_output { command pattern args } {
 }
 
 # We use "." here instead of ":" so that this works on win32 too.
-set escaped_directory [string_to_regexp "$srcdir/$subdir"]
-gdb_test "guile (print (parameter-value \"directories\"))" "$escaped_directory.\\\$cdir.\\\$cwd"
+if { [is_remote host] } {
+    # Proc gdb_reinitialize_dir has no effect for remote host.
+    gdb_test "guile (print (parameter-value \"directories\"))" \
+	"\\\$cdir.\\\$cwd"
+} else {
+    set escaped_directory [string_to_regexp "$srcdir/$subdir"]
+    gdb_test "guile (print (parameter-value \"directories\"))" \
+	"$escaped_directory.\\\$cdir.\\\$cwd"
+}
 
 # Test a simple boolean parameter, and parameter? while we're at it.