gdb.base/corefile-buildid.exp: fix DUPLICATEs when failing to generate a core file
authorSimon Marchi <simon.marchi@polymtl.ca>
Wed, 1 Dec 2021 02:00:59 +0000 (21:00 -0500)
committerSimon Marchi <simon.marchi@polymtl.ca>
Wed, 1 Dec 2021 02:05:26 +0000 (21:05 -0500)
When my system isn't properly configured to generate core files in the
local directory, I see these DUPLICATEs:

    DUPLICATE: gdb.base/corefile-buildid.exp: could not generate core file

Fix that by having a single with_test_prefix around that message and
what follows.

Change-Id: I4ac245fcce1c666db56e3bad3582aa17f183dcba

gdb/testsuite/gdb.base/corefile-buildid.exp

index 15509be70399d00a67d903c72441322effe79f69..e1703d6a24855bd733c20fbbad9fb882472456f3 100644 (file)
@@ -257,30 +257,30 @@ proc do_corefile_buildid_tests {args} {
        lappend suffix "sepdebug"
     }
 
-    # Find the core file.
-    set corefile [core_find $program_to_run]
-    if {$corefile == ""} {
-       untested "could not generate core file"
-       return
-    }
-    verbose -log "corefile is $corefile"
+    with_test_prefix "[join $suffix \ ]" {
+       # Find the core file.
+       set corefile [core_find $program_to_run]
+       if {$corefile == ""} {
+           untested "could not generate core file"
+           return
+       }
+       verbose -log "corefile is $corefile"
 
-    # Grab the build-id from the binary, removing ".debug" from the end.
-    set buildid [build_id_debug_filename_get $program_to_run]
-    if {$buildid == ""} {
-       untested "binary for [join $suffix \ ] has no build-id"
-    }
-    regsub {\.debug$} $buildid {} buildid
-    verbose -log "build-id is $buildid"
+       # Grab the build-id from the binary, removing ".debug" from the end.
+       set buildid [build_id_debug_filename_get $program_to_run]
+       if {$buildid == ""} {
+           untested "binary has no build-id"
+       }
+       regsub {\.debug$} $buildid {} buildid
+       verbose -log "build-id is $buildid"
 
-    with_test_prefix "[join $suffix \ ]"  {
        locate_exec_from_core_build_id $corefile $buildid \
            [join $suffix -] $sepdebug false $shared
-    }
 
-    with_test_prefix "symlink [join $suffix \ ]" {
-       locate_exec_from_core_build_id $corefile $buildid \
-           [join $suffix -] $sepdebug true $shared
+       with_test_prefix "symlink" {
+           locate_exec_from_core_build_id $corefile $buildid \
+               [join $suffix -] $sepdebug true $shared
+       }
     }
 }