espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-25 21:41:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

More debuginfod tests fixes.

Browse Source 
Start server before setting environment variable.
	Specify tmpdir as the location of the server's
	database.
	Check additional server metrics at start-up.
This commit is contained in:
Aaron Merey
2020-02-10 15:24:57 +00:00
committed by Nick Clifton
parent 678d457fb7
commit 46471187e4
2 changed files with 30 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
binutils/ChangeLog
View File

@ -2,6 +2,10 @@
* binutils/testsuite/binutils-all/debuginfod.exp: * binutils/testsuite/binutils-all/debuginfod.exp:
Replace set ::env with setenv. Replace set ::env with setenv.
Start server before setting environment variable.
Specify tmpdir as the location of the server's
database.
Check additional server metrics at start-up.
2020-02-07 Nick Clifton <nickc@redhat.com> 2020-02-07 Nick Clifton <nickc@redhat.com>

41
binutils/testsuite/binutils-all/debuginfod.exp
View File

@ -75,10 +75,10 @@ if { ![binutils_assemble $srcdir/$subdir/linkdebug.s tmpdir/linkdebug.debug] } {
# Find an unused port # Find an unused port
set port [exec sh -c "while true; do PORT=`expr '(' \$RANDOM % 1000 ')' + 9000`; ss -atn | fgrep \":\$PORT\" || break; done; echo \$PORT"] set port [exec sh -c "while true; do PORT=`expr '(' \$RANDOM % 1000 ')' + 9000`; ss -atn | fgrep \":\$PORT\" || break; done; echo \$PORT"]
# Specify the directory that files retrieved from the server are written to.
set cache [file join [pwd] "tmpdir/.debuginfod_cache"] set cache [file join [pwd] "tmpdir/.debuginfod_cache"]
set db [file join [pwd] "tmpdir/.debuginfod.db"]
setenv DEBUGINFOD_URLS http://127.0.0.1:$port setenv DEBUGINFOD_URLS ""
setenv DEBUGINFOD_TIMEOUT 30 setenv DEBUGINFOD_TIMEOUT 30
setenv DEBUGINFOD_CACHE_PATH $cache setenv DEBUGINFOD_CACHE_PATH $cache
@ -88,8 +88,9 @@ file mkdir tmpdir/dbg
file rename -force tmpdir/testprog.debug tmpdir/dbg file rename -force tmpdir/testprog.debug tmpdir/dbg
file rename -force tmpdir/linkdebug.debug tmpdir/dbg file rename -force tmpdir/linkdebug.debug tmpdir/dbg
# Remove an old cache if it exists # Remove old cache and database if they exist.
file delete -force $cache file delete -force $cache
file delete -force $db
# Check whether objdump and readelf are configured with debuginfod. # Check whether objdump and readelf are configured with debuginfod.
# To check this we attempt to follow a broken debuglink. If configured # To check this we attempt to follow a broken debuglink. If configured
@ -114,32 +115,43 @@ proc sigint_handler {} {
trap sigint_handler INT trap sigint_handler INT
# Start a debuginfod server. # Start a debuginfod server.
set debuginfod_pid [exec debuginfod -p $port -F tmpdir/dbg 2>/dev/null &] set debuginfod_pid [exec debuginfod -d $db -p $port -F tmpdir/dbg 2>/dev/null &]
if { !$debuginfod_pid } { if { !$debuginfod_pid } {
fail "$test (server init)" fail "$test (server init)"
return return
} }
# Wait for debuginfod indicate it's ready. set metrics [list "ready 1" \
set ready 0 "thread_work_total{role=\"traverse\"} 1" \
for {set timelim 30} {$timelim != 0} {incr timelim -1} { "thread_work_pending{role=\"scan\"} 0" \
sleep 1 "thread_busy{role=\"scan\"} 0" \
set want ".*ready 1.*" "groom{statistic=\"buildids\"} 2"]
# Check server metrics to confirm init has completed.
foreach m $metrics {
set timelim 20
while { $timelim != 0 } {
sleep 0.5
catch {exec curl -s http://127.0.0.1:$port/metrics} got catch {exec curl -s http://127.0.0.1:$port/metrics} got
if { [regexp $want $got] } { if { [regexp $m $got] } {
set ready 1
break break
} }
}
if { !$ready } { incr timelim -1
fail "$test (server ready)" }
if { $timelim == 0 } {
fail "$test (server init timeout)"
catch {exec kill -INT $debuginfod_pid} catch {exec kill -INT $debuginfod_pid}
return return
}
} }
setenv DEBUGINFOD_URLS http://127.0.0.1:$port
# Test whether prog can fetch separate debuginfo using debuginfod # Test whether prog can fetch separate debuginfo using debuginfod
# if it's configured to do so. # if it's configured to do so.
proc test_fetch_debuglink { prog progargs } { proc test_fetch_debuglink { prog progargs } {
@ -185,5 +197,4 @@ if { [regexp ".*DEBUGINFOD.*" $conf_readelf] } {
untested "$test (readelf not configured with debuginfod)" untested "$test (readelf not configured with debuginfod)"
} }
file delete -force $cache
catch {exec kill -INT $debuginfod_pid} catch {exec kill -INT $debuginfod_pid}