[patch] [testsuite] debuginfod.exp canonicalization

[Frank Ch. Eigler]

Hi -

The following little patch makes a few binutils test results more
comparable across builds/versions.  There's another one coming for
libctf.


commit a139fd518a73915c1e87737e645df0591af97486 (HEAD -> master)
Author: Frank Ch. Eigler <fche@redhat.com>
Date:   Fri Sep 20 16:19:41 2024 -0400

    binutils testsuite: canonicalize subtest names in debuginfod.exp
    
    Previous code included the full $srcdir pathnames in the individual
    subtest PASS/FAIL names, which makes it difficult to compute
    comparisons or regressions between test runs on different machines.
    This version switches to the basename only, which are common.
    
    Signed-off-by: Frank Ch. Eigler <fche@redhat.com>

diff --git a/binutils/testsuite/binutils-all/debuginfod.exp b/binutils/testsuite/binutils-all/debuginfod.exp
index 2f7464458000..af0dc092fe96 100644
--- a/binutils/testsuite/binutils-all/debuginfod.exp
+++ b/binutils/testsuite/binutils-all/debuginfod.exp
@@ -34,12 +34,12 @@ if { ![is_elf_format] || ![isnative] } {
 }
 
 if { [which $OBJDUMP] == 0} {
-    perror "$test $OBJDUMP (does not exist)"
+    perror "$test [file tail $OBJDUMP] (does not exist)"
     return
 }
 
  if { [which $READELF] == 0} {
-    perror "$test $READELF (does not exist)"
+     perror "$test [file tail $READELF] (does not exist)"
     return
 }
 
@@ -162,9 +162,9 @@ proc test_fetch_debuglink { prog progargs } {
     set got [binutils_run $prog "$progargs tmpdir/testprog"]
 
     if { [regexp ".*Found separate debug info file.*Contents\[^\n\]*loaded from\[^\n\]*" $got] } {
-       pass "$test ($prog debuglink)"
+        pass "$test ([file tail $prog] debuglink)"
     } else {
-       fail "$test ($prog did not find debuglink to cache $cache)"
+        fail "$test ([file tail $prog] did not find debuglink to cache)"
     }
 }
 
@@ -178,9 +178,9 @@ proc test_fetch_debugaltlink { prog progargs } {
     set buildid "00112233445566778899aabbccddeeff0123456789abcdef"
 
     if { [regexp ".*Found separate debug info file\[^\n\]*$cache/$buildid" $got] } {
-        pass "$test ($prog debugaltlink)"
+        pass "$test ([file tail $prog] debugaltlink)"
     } else {
-        fail "$test ($prog could not load debugaltlink)"
+        fail "$test ([file tail $prog] could not load debugaltlink)"
     }
 }