diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb-guile.exp | 15 |
2 files changed, 18 insertions, 3 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e0f6496..afcf2ac 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2021-05-10 Andrew Burgess <andrew.burgess@embecosm.com> + + * lib/guile.exp (gdb_scm_load_file): Use empty test name to + silence PASS lines. + (gdb_install_guile_module): Likewise. + 2021-05-12 George Barrett <bob@bob131.so> * gdb.guile/scm-value.exp (test_value_in_inferior): Add test for diff --git a/gdb/testsuite/lib/gdb-guile.exp b/gdb/testsuite/lib/gdb-guile.exp index f6e627e..c118ffe 100644 --- a/gdb/testsuite/lib/gdb-guile.exp +++ b/gdb/testsuite/lib/gdb-guile.exp @@ -81,14 +81,23 @@ proc gdb_scm_load_file { file_name {test_name ""} } { proc gdb_install_guile_utils { } { # Define utilities in Guile to save needing (newline) all the time, # and in the case of "print" add a prefix to help erroneous passes. - gdb_test_no_output "guile (define (print x) (format #t \"= ~A\" x) (newline))" - gdb_test_no_output "guile (define (raw-print x) (format #t \"= ~S\" x) (newline))" + # + # Pass the empty string as the test name here, this means we don't + # get a pass/fail message for these tests, but also removes + # duplicate tests if this proc ends up getting called multiple + # times in a single test script. + gdb_test_no_output "guile (define (print x) (format #t \"= ~A\" x) (newline))" "" + gdb_test_no_output "guile (define (raw-print x) (format #t \"= ~S\" x) (newline))" "" } # Install the gdb module. proc gdb_install_guile_module { } { - gdb_test_no_output "guile (use-modules (gdb))" + # Pass the empty string as the test name here, this means we don't + # get a pass/fail message for these tests, but also removes + # duplicate tests if this proc ends up getting called multiple + # times in a single test script. + gdb_test_no_output "guile (use-modules (gdb))" "" } # Wrapper around runto_main that installs the guile utils and module. |