blob: 27efd3316e90c8a0dcf7c534e3bd0c4919cb2ab8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
# Copyright 2023 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# Test that tilde expansion works for the 'save gdb-index' command.
# This test relies on using the $HOME directory. We could make this
# work for remote hosts, but right now, this isn't supported.
require {!is_remote host}
# Can't save an index with readnow.
require !readnow
standard_testfile main.c
# Create a directory to generate an index file into.
set full_dir [standard_output_file "index_files"]
remote_exec host "mkdir -p ${full_dir}"
# The users home directory.
set home $::env(HOME)
# Check that FULL_DIR is within the $HOME directory. If it's not, then
# that's fine, but we can't test tilde expansion in this case.
if { [string compare -length [string length $home] $full_dir $home] != 0 } {
unsupported "test not run within home directory"
return -1
}
# Convert the $HOME prefix in to ~.
set dir "~[string range $full_dir [string length $home] end]"
# Build the test executable.
if { [prepare_for_testing "failed to prepare" "${testfile}" ${srcfile}] } {
return -1
}
# Start GDB and load in the executable.
clean_restart ${binfile}
# If the executable was built with an index, or lacks the debug
# information required to create an index, then we'll not be able to
# generate an index, so lets not even try.
set has_index false
set can_dump_index false
gdb_test_multiple "maint print objfile $binfile" "check we can generate an index" {
-re "\r\n\\.gdb_index: version ${decimal}(?=\r\n)" {
set has_index true
gdb_test_lines "" $gdb_test_name ".*"
}
-re "\r\n\\.debug_names: exists(?=\r\n)" {
set has_index true
gdb_test_lines "" $gdb_test_name ".*"
}
-re "\r\n(Cooked index in use:|Psymtabs)(?=\r\n)" {
set can_dump_index true
gdb_test_lines "" $gdb_test_name ".*"
}
-re -wrap "" {
}
}
if { $has_index } {
unsupported "already have an index"
return -1
}
if { !$can_dump_index } {
unsupported "lacks debug information needed to dump index"
return -1
}
# Generate an index file.
gdb_test_no_output "save gdb-index $dir" \
"save gdb-index to tilde based directory"
gdb_exit
# Confirm that the index file exists.
set index_filename "${full_dir}/${gdb_test_file_name}.gdb-index"
gdb_assert { [remote_file host exists $index_filename] } \
"confirm the index file exists"
|
