From 5fc60431a8739f502450e1e75695acf15b519961 Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Wed, 29 Mar 2023 08:01:42 +0200 Subject: [PATCH] [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. --- 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. -- 2.30.2