1# Copyright 2003, 2004, 2006 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 21if $tracelevel then { 22 strace $tracelevel 23 } 24 25# Test the help messages. 26 27proc test_help {} { 28 set first_component_help "Print the first class/namespace component of NAME" 29 set namespace_help "Print the list of possible C\\+\\+ namespaces" 30 31 test_prefix_command_help {"maintenance cplus"} { 32 "C\\+\\+ maintenance commands\.\[\r\n\]+" 33 } 34 35 test_prefix_command_help {"maint cp" "maintenance cplus"} { 36 "C\\+\\+ maintenance commands.\r\n\r\n" 37 } 38 39 set multiple_help_body "List of maintenance cplus subcommands:\r\n\r\nmaintenance cplus first_component -- ${first_component_help}\r\nmaintenance cplus namespace -- ${namespace_help}\r\n\r\nType \"help maintenance cplus\" followed by maintenance cplus subcommand name for full documentation.\r\nCommand name abbreviations are allowed if unambiguous." 40 41 gdb_test "maint cp" "\"maintenance cplus\" must be followed by the name of a command.\r\n.*" 42 43 gdb_test "help maint cp first_component" "${first_component_help}." 44 gdb_test "help maint cp namespace" "${namespace_help}." 45} 46 47# This is used when NAME should contain only a single component. Be 48# careful to make sure that parentheses get escaped properly. 49proc test_single_component {name} { 50 set matchname [string_to_regexp "$name"] 51 gdb_test "maint cp first_component $name" "$matchname" 52} 53 54# This is used when NAME is invalid. 55proc test_invalid_name {name} { 56 set matchname [string_to_regexp "$name"] 57 gdb_test "maint cp first_component $name" \ 58 "During symbol reading, unexpected demangled name '$matchname'.\r\n$matchname" 59} 60 61proc test_first_component {} { 62 # The function in question might complain; make sure that we see 63 # all complaints. 64 65 gdb_test "set complaints 1000" "" 66 67 test_single_component "foo" 68 test_single_component "operator<<" 69 test_single_component "operator>>" 70 test_single_component "operator ->" 71 test_single_component "operator()" 72 test_single_component "operator>" 73 test_single_component "operator<" 74 test_single_component "operator ->" 75 test_single_component "operator ->" 76 77 test_single_component "foo()" 78 test_single_component "foo(int)" 79 test_single_component "foo(X::Y)" 80 test_single_component "foo(X::Y, A::B)" 81 test_single_component "foo(std::basic_streambuf<wchar_t,std::char_traits<wchar_t> >)" 82 test_single_component "operator>(X::Y)" 83 84 # Operator names can show up in weird places. 85 86 test_single_component "int operator<< <char>()" 87 test_single_component "T<Cooperator>" 88 89 # NOTE: carlton/2003-04-23: I've only seen the first of these 90 # produced by the demangler, but I'm including two more just to be 91 # on the safe side. 92 test_single_component "int foo<&(operator<<(C, C))>()" 93 test_single_component "int foo<&operator<<(C, C)>()" 94 test_single_component "int foo<operator<<(C, C)>()" 95 96 gdb_test "maint cp first_component foo::bar" "foo" 97 gdb_test "maint cp first_component foo::bar::baz" "foo" 98 gdb_test "maint cp first_component C<A>::bar" "C<A>" 99 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> > >" 100 101 # Make sure we behave appropriately on invalid input. 102 103 # NOTE: carlton/2003-06-25: As of today, the demangler can in fact 104 # produce examples like the third case below: there really should 105 # be a space between the two <'s. See PR gdb/1245. 106 107 test_invalid_name "foo<" 108 test_invalid_name "foo(" 109 test_invalid_name "bool operator<<char>" 110} 111 112proc test_namespace {} { 113 # There's not a lot we can do to test this. 114 115 gdb_test "maint cp namespace" "Possible namespaces:" 116} 117 118gdb_exit 119gdb_start 120 121test_help 122test_first_component 123test_namespace 124 125gdb_exit 126return 0 127