1# Copyright 2003-2020 Free Software Foundation, Inc.
2
3# This program is free software; you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation; either version 3 of the License, or
6# (at your option) any later version.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11# GNU General Public License for more details.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program.  If not, see <http://www.gnu.org/licenses/>.
15
16
17# This file tests C++-specific maintenance commands and help on those.
18
19# Currently, no source file is used.
20
21# Test the help messages.
22
23proc test_help {} {
24    set first_component_help "Print the first class/namespace component of NAME"
25    set namespace_help "Deprecated placeholder for removed functionality."
26
27    test_prefix_command_help {"maintenance cplus"} {
28        "C\\+\\+ maintenance commands\.\[\r\n\]+"
29    }
30
31    test_prefix_command_help {"maint cp" "maintenance cplus"} {
32        "C\\+\\+ maintenance commands.\r\n\r\n"
33    }
34
35    set multiple_help_body "List of maintenance cplus subcommands:.*Command name abbreviations are allowed if unambiguous."
36
37    gdb_test "maint cp" $multiple_help_body
38
39    gdb_test "help maint cp first_component" "${first_component_help}."
40    gdb_test "help maint cp namespace" "${namespace_help}."
41}
42
43# This is used when NAME should contain only a single component.  Be
44# careful to make sure that parentheses get escaped properly.
45proc test_single_component {name} {
46    set matchname [string_to_regexp "$name"]
47    gdb_test "maint cp first_component $name" "$matchname"
48}
49
50# This is used when NAME is invalid.
51proc test_invalid_name {name} {
52    set matchname [string_to_regexp "$name"]
53    gdb_test "maint cp first_component $name" \
54	"During symbol reading: unexpected demangled name '$matchname'\r\n$matchname"
55}
56
57proc test_first_component {} {
58    # The function in question might complain; make sure that we see
59    # all complaints.
60
61    gdb_test_no_output "set complaints 1000"
62
63    test_single_component "foo"
64    test_single_component "operator<<"
65    test_single_component "operator>>"
66    test_single_component "operator ->"
67    test_single_component "operator()"
68    test_single_component "operator>"
69    test_single_component "operator<"
70    test_single_component "operator ->"
71    test_single_component "operator  ->"
72
73    test_single_component "foo()"
74    test_single_component "foo(int)"
75    test_single_component "foo(X::Y)"
76    test_single_component "foo(X::Y, A::B)"
77    test_single_component "foo(std::basic_streambuf<wchar_t,std::char_traits<wchar_t> >)"
78    test_single_component "operator>(X::Y)"
79
80    # Operator names can show up in weird places.
81
82    test_single_component "int operator<< <char>()"
83    test_single_component "T<Cooperator>"
84
85    # NOTE: carlton/2003-04-23: I've only seen the first of these
86    # produced by the demangler, but I'm including two more just to be
87    # on the safe side.
88    test_single_component "int foo<&(operator<<(C, C))>()"
89    test_single_component "int foo<&operator<<(C, C)>()"
90    test_single_component "int foo<operator<<(C, C)>()"
91
92    gdb_test "maint cp first_component foo::bar" "foo"
93    gdb_test "maint cp first_component foo::bar::baz" "foo"
94    gdb_test "maint cp first_component C<A>::bar" "C<A>"
95    gdb_test "maint cp first_component C<std::basic_streambuf<wchar_t,std::char_traits<wchar_t> > >::bar" "C<std::basic_streambuf<wchar_t,std::char_traits<wchar_t> > >"
96
97    # Make sure we behave appropriately on invalid input.
98
99    # NOTE: carlton/2003-06-25: As of today, the demangler can in fact
100    # produce examples like the third case below: there really should
101    # be a space between the two <'s.  See PR gdb/1245.
102
103    test_invalid_name "foo<"
104    test_invalid_name "foo("
105    test_invalid_name "bool operator<<char>"
106}
107
108proc test_namespace {} {
109    gdb_test "maint cp namespace" "The `maint namespace' command was removed."
110}
111
112gdb_exit
113gdb_start
114
115test_help
116test_first_component
117test_namespace
118
119gdb_exit
120return 0
121