blob: bedd4cbd3fe3577a3d4904ec2789cdb17edb5a52 (
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
# Copyright 2009-2021 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/>.
# This file is part of the gdb testsuite.
load_lib completion-support.exp
# A helper procedure to test location completions restricted by
# class.
proc test_class_complete {class expr name matches} {
global gdb_prompt
set matches [lsort $matches]
set cmd "complete break ${class}::$expr"
set seen {}
gdb_test_multiple $cmd $name {
"break ${class}::main" { fail "$name (saw global symbol)" }
$cmd { exp_continue }
-re "break ${class}::\[^\r\n\]*\r\n" {
set str $expect_out(0,string)
scan $str "break ${class}::%\[^(\]" method
lappend seen $method
exp_continue
}
-re "$gdb_prompt $" {
set failed ""
foreach got [lsort $seen] have $matches {
if {![string equal $got $have]} {
set failed $have
break
}
}
if {[string length $failed] != 0} {
fail "$name ($failed not found)"
} else {
pass $name
}
}
}
}
if { [skip_cplus_tests] } { continue }
standard_testfile pr9594.cc
if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
return -1
}
# Tests below are about tab-completion, which doesn't work if readline
# library isn't used. Check it first.
if { ![readline_is_used] } {
untested "no tab completion support without readline"
return -1
}
# Test that completion is restricted by class name (all methods)
test_class_complete Foo "" "complete class methods" \
[list Foo Foofoo get_foo set_foo ~Foo]
test_class_complete Foo F "complete class methods beginning with F" \
[list Foo Foofoo]
# The tests below depend on the current code scope.
set bp_location [gdb_get_line_number "Set breakpoint here" ${srcfile}]
if {![runto "${srcfile}:$bp_location"]} {
perror "test suppressed"
return
}
# This also tests inheritance -- completion should only see a single
# "get_foo".
gdb_test "complete p foo1.g" "p foo1\\.get_foo"
# Test inheritance without overriding.
gdb_test "complete p foo1.base" "p foo1\\.base_function_only"
# Test non-completion of constructor names.
gdb_test "complete p foo1.Fo" "p foo1\\.Foofoo"
# Test completion with an anonymous struct.
gdb_test "complete p a.g" "p a\\.get"
with_test_prefix "expression with namespace" {
# Before the scope operator, GDB shows all the symbols whose
# fully-qualified name matches the completion word.
test_gdb_complete_multiple "p " "Test_NS" "" {
"Test_NS"
"Test_NS::Nested"
"Test_NS::Nested::qux"
"Test_NS::bar"
"Test_NS::foo"
}
# Unlike in linespecs, tab- and complete-command completion work a
# bit differently when completing around the scope operator. The
# matches in the tab-completion case only show the part of the
# symbol after the scope, since ':' is a word break character.
set tab_completion_list {
"Nested"
"Nested::qux"
"bar"
"foo"
}
test_gdb_complete_tab_multiple "p Test_NS:" ":" $tab_completion_list
test_gdb_complete_tab_multiple "p Test_NS::" "" $tab_completion_list
# OTOH, the complete command must show the whole command, with
# qualified symbol displayed as entered by the user.
set cmd_completion_list {
"Test_NS::Nested"
"Test_NS::Nested::qux"
"Test_NS::bar"
"Test_NS::foo"
}
test_gdb_complete_cmd_multiple "p " "Test_NS:" $cmd_completion_list
test_gdb_complete_cmd_multiple "p " "Test_NS::" $cmd_completion_list
# Add a disambiguating character and we get a unique completion.
test_gdb_complete_unique "p Test_NS::f" "p Test_NS::foo"
}
|
