diff mbox series

[pushed,5/6,gdb/testsuite] Fix /gdb.guile/scm-parameter.exp for remote host

Message ID 20230329060204.32690-5-tdevries@suse.de
State Committed
Headers
Series [pushed,1/6,gdb/testsuite] Fix gdb.guile/guile.exp for remote host |

Commit Message

Tom de Vries March 29, 2023, 6:02 a.m. UTC 
  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.
---
 gdb/testsuite/gdb.guile/scm-parameter.exp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)
diff mbox series

Patch

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.