mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-06-23 03:29:47 +08:00
[gdb/testsuite] Use with_test_prefix in gdb.base/gdb-caching-proc.exp
When running test-case gdb.base/gdb-caching-proc.exp all passes are unique, but fails might not be. Fix this by using with_test_prefix. Tested on x86_64-linux. gdb/testsuite/ChangeLog: 2020-05-18 Tom de Vries <tdevries@suse.de> * gdb.base/gdb-caching-proc.exp: Use with_test_prefix.
This commit is contained in:
@ -1,3 +1,7 @@
|
|||||||
|
2020-05-18 Tom de Vries <tdevries@suse.de>
|
||||||
|
|
||||||
|
* gdb.base/gdb-caching-proc.exp: Use with_test_prefix.
|
||||||
|
|
||||||
2020-05-17 Pedro Alves <palves@redhat.com>
|
2020-05-17 Pedro Alves <palves@redhat.com>
|
||||||
|
|
||||||
PR gdb/25741
|
PR gdb/25741
|
||||||
|
@ -28,7 +28,9 @@ proc test_proc { name } {
|
|||||||
|
|
||||||
set resultlist [list]
|
set resultlist [list]
|
||||||
|
|
||||||
set first [gdb_do_cache_wrap $real_name]
|
with_test_prefix intial {
|
||||||
|
set first [gdb_do_cache_wrap $real_name]
|
||||||
|
}
|
||||||
lappend resultlist $first
|
lappend resultlist $first
|
||||||
|
|
||||||
# Ten repetitions was enough to trigger target_supports_scheduler_locking,
|
# Ten repetitions was enough to trigger target_supports_scheduler_locking,
|
||||||
@ -37,7 +39,9 @@ proc test_proc { name } {
|
|||||||
|
|
||||||
set racy 0
|
set racy 0
|
||||||
for {set i 0} {$i < $repeat} {incr i} {
|
for {set i 0} {$i < $repeat} {incr i} {
|
||||||
set rerun [gdb_do_cache_wrap $real_name]
|
with_test_prefix $i {
|
||||||
|
set rerun [gdb_do_cache_wrap $real_name]
|
||||||
|
}
|
||||||
lappend resultlist $rerun
|
lappend resultlist $rerun
|
||||||
if { $rerun != $first } {
|
if { $rerun != $first } {
|
||||||
set racy 1
|
set racy 1
|
||||||
@ -45,9 +49,9 @@ proc test_proc { name } {
|
|||||||
}
|
}
|
||||||
|
|
||||||
if { $racy == 0 } {
|
if { $racy == 0 } {
|
||||||
pass "$name consistency"
|
pass "consistency"
|
||||||
} else {
|
} else {
|
||||||
fail "$name consistency"
|
fail "consistency"
|
||||||
verbose -log "$name: $resultlist"
|
verbose -log "$name: $resultlist"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -77,20 +81,22 @@ proc test_file { file } {
|
|||||||
}
|
}
|
||||||
|
|
||||||
foreach procname $procnames {
|
foreach procname $procnames {
|
||||||
switch $procname {
|
with_test_prefix $procname {
|
||||||
"is_address_zero_readable" { set setup_gdb 1 }
|
switch $procname {
|
||||||
"target_is_gdbserver" { set setup_gdb 1 }
|
"is_address_zero_readable" { set setup_gdb 1 }
|
||||||
default {set setup_gdb 0 }
|
"target_is_gdbserver" { set setup_gdb 1 }
|
||||||
}
|
default {set setup_gdb 0 }
|
||||||
|
}
|
||||||
|
|
||||||
if { $setup_gdb } {
|
if { $setup_gdb } {
|
||||||
clean_restart $obj
|
clean_restart $obj
|
||||||
}
|
}
|
||||||
|
|
||||||
test_proc $procname
|
test_proc $procname
|
||||||
|
|
||||||
if { $setup_gdb } {
|
if { $setup_gdb } {
|
||||||
gdb_exit
|
gdb_exit
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user