diff options
author | Tom de Vries <tdevries@suse.de> | 2019-05-07 11:52:17 +0200 |
---|---|---|
committer | Tom de Vries <tdevries@suse.de> | 2019-05-07 11:52:17 +0200 |
commit | 7bd55dac80c2faced875119b60acfb51741e397e (patch) | |
tree | 28a7cd83b54dd30fcbb68fc0f96fb03ec5133cb1 /gdb/testsuite | |
parent | 75f06e9dc59d3f810e2afe2f47afbcb74204ef61 (diff) | |
download | gdb-7bd55dac80c2faced875119b60acfb51741e397e.zip gdb-7bd55dac80c2faced875119b60acfb51741e397e.tar.gz gdb-7bd55dac80c2faced875119b60acfb51741e397e.tar.bz2 |
[gdb/testsuite] Fix ls_host return in index-cache.exp
When adding a debug print here in index-cache.exp:
...
proc_with_prefix test_cache_disabled { cache_dir } {
lassign [ls_host $cache_dir] ret files_before
+ puts "before: '$files_before'"
+ exit
...
we have:
...
files_before: ''
...
When further adding:
...
proc_with_prefix test_cache_disabled { cache_dir } {
+ exec touch $cache_dir/foo.1 $cache_dir/foo.2 $cache_dir/foo.3
...
we have:
...
files_before: 'foo.1'
...
while we're expecting file_before to contain foo.[123].
Fix this by making the return statement in ls_host return a list rather than a
string (in accordance with the ls_host documentation), after which we have:
...
files_before: 'foo.1 foo.2 foo.3'
...
Tested on x86_64-linux.
gdb/testsuite/ChangeLog:
2019-05-07 Tom de Vries <tdevries@suse.de>
* gdb.base/index-cache.exp (ls_host): Fix return statement.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/index-cache.exp | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 0af0d37..9610579 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2019-05-07 Tom de Vries <tdevries@suse.de> + * gdb.base/index-cache.exp (ls_host): Fix return statement. + +2019-05-07 Tom de Vries <tdevries@suse.de> + PR testsuite/24522 * gdb.dlang/watch-loc.c: Fix debug_info_offset in .debug_aranges section. diff --git a/gdb/testsuite/gdb.base/index-cache.exp b/gdb/testsuite/gdb.base/index-cache.exp index 5baba84..b76a02b 100644 --- a/gdb/testsuite/gdb.base/index-cache.exp +++ b/gdb/testsuite/gdb.base/index-cache.exp @@ -50,7 +50,7 @@ proc ls_host { dir } { } } - return "0 $filtered" + return [list 0 $filtered] } # Execute "show index-cache stats" and verify the output against expected |