diff mbox series

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

Message ID 20230329060204.32690-6-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-symbol.exp for remote host by making a regexp less
strict.

Likewise in gdb.guile/scm-symtab.exp.

Tested on x86_64-linux.
---
 gdb/testsuite/gdb.guile/scm-symbol.exp |  2 +-
 gdb/testsuite/gdb.guile/scm-symtab.exp | 13 +++++++++----
 2 files changed, 10 insertions(+), 5 deletions(-)
diff mbox series

Patch

diff --git a/gdb/testsuite/gdb.guile/scm-symbol.exp b/gdb/testsuite/gdb.guile/scm-symbol.exp
index 5680a7f176a..8c6cbd250ae 100644
--- a/gdb/testsuite/gdb.guile/scm-symbol.exp
+++ b/gdb/testsuite/gdb.guile/scm-symbol.exp
@@ -132,7 +132,7 @@  gdb_test "guile (print (= (symbol-addr-class t) SYMBOL_LOC_CONST))" "= #t"
 gdb_test "guile (print (symbol-type t))" "= enum tag"
 
 # Test symtab attribute.
-gdb_test "guile (print (symbol-symtab t))" "= #<gdb:symtab .*gdb.guile/scm-symbol.c>"
+gdb_test "guile (print (symbol-symtab t))" "= #<gdb:symtab (.*/)?scm-symbol.c>"
 
 # C++ tests
 # Recompile binary.
diff --git a/gdb/testsuite/gdb.guile/scm-symtab.exp b/gdb/testsuite/gdb.guile/scm-symtab.exp
index 0f468b7d373..a8cc2825ae0 100644
--- a/gdb/testsuite/gdb.guile/scm-symtab.exp
+++ b/gdb/testsuite/gdb.guile/scm-symtab.exp
@@ -61,7 +61,7 @@  gdb_scm_test_silent_cmd "guile (define new-pc (sal-pc (frame-sal (selected-frame
 
 # Test sal.
 gdb_test "guile (print (sal-symtab sal))" \
-    ".*gdb.guile/scm-symtab.c.*" "Test sal-symtab"
+    " (.*/)?scm-symtab.c.*" "Test sal-symtab"
 gdb_test "guile (print (sal-pc sal))" \
     "${decimal}" "test sal-pc"
 gdb_test "guile (print (= (sal-last sal) (- new-pc 1)))" \
@@ -85,11 +85,16 @@  gdb_test "guile (print (eq? symtab (symbol-symtab (lookup-global-symbol \"func1\
 
 # Test symbol table.
 gdb_test "guile (print (symtab-filename symtab))" \
-    ".*gdb.guile/scm-symtab.c.*" "test symtab-filename"
+    " (.*/)?scm-symtab.c.*" "test symtab-filename"
 gdb_test "guile (print (symtab-objfile symtab))" \
     "#<gdb:objfile .*scm-symtab>" "test symtab-objfile"
-gdb_test "guile (print (symtab-fullname symtab))" \
-    "testsuite/gdb.guile/scm-symtab.c.*" "test symtab-fullname"
+if { [is_remote host] } {
+    gdb_test "guile (print (symtab-fullname symtab))" \
+	" (.*/)scm-symtab.c.*" "test symtab-fullname"
+} else {
+    gdb_test "guile (print (symtab-fullname symtab))" \
+	"testsuite/gdb.guile/scm-symtab.c.*" "test symtab-fullname"
+}
 gdb_test "guile (print (symtab-valid? symtab))" \
     "#t" "test symtab-valid?"
 gdb_test "guile (print (->bool (member \"qq\" global-symbols)))" \