From 5c6f801d8e6740d9c1dfa7ff4a9ed2ec160a5e1d Mon Sep 17 00:00:00 2001 From: Andrew Burgess Date: Thu, 13 May 2021 16:50:28 +0100 Subject: [PATCH] gdb/testsuite: remove some duplicate test names from guile tests The guile support library has some "tests" that are actually being used to setup GDB ready for the real guile tests, e.g. we load some support modules, and define some helper functions. As this setup is done every time we call gdb_guile_runto_main, which could be called multiple times in a single test script, this can lead to duplicate PASS lines. As this setup is all pretty basic, and isn't the actual focus of the real tests, then in this commit I pass an empty test name through to the gdb_test_no_output calls, the result of this is that the PASS lines are no longer printed. This removes some duplicate tests from the gdb.guile/*.exp set of tests. gdb/testsuite/ChangeLog: * lib/guile.exp (gdb_scm_load_file): Use empty test name to silence PASS lines. (gdb_install_guile_module): Likewise. --- gdb/testsuite/ChangeLog | 6 ++++++ 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 e0f64965d94..afcf2acc0ff 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2021-05-10 Andrew Burgess + + * 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 * 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 f6e627e0902..c118ffeda50 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. -- 2.39.5