diff options
author | Tom de Vries <tdevries@suse.de> | 2023-03-29 08:01:42 +0200 |
---|---|---|
committer | Tom de Vries <tdevries@suse.de> | 2023-03-29 08:01:42 +0200 |
commit | 5fc60431a8739f502450e1e75695acf15b519961 (patch) | |
tree | 5e9ad5e3f0b5c5c0d32c19b174087009a6c7704a /gdb | |
parent | 7eb59fa25616b947ae6c5f30a06bdabdd97fff72 (diff) | |
download | gdb-5fc60431a8739f502450e1e75695acf15b519961.zip gdb-5fc60431a8739f502450e1e75695acf15b519961.tar.gz gdb-5fc60431a8739f502450e1e75695acf15b519961.tar.bz2 |
[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.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/gdb.guile/scm-parameter.exp | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-parameter.exp b/gdb/testsuite/gdb.guile/scm-parameter.exp index 2e9d9ed..e2f82a1 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. |