OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.cp/] [maint.exp] - Blame information for rev 157

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# 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 .
15
 
16
 
17
# This file tests C++-specific maintenance commands and help on those.
18
 
19
# Currently, no source file is used.
20
 
21
if $tracelevel then {
22
        strace $tracelevel
23
        }
24
 
25
# Test the help messages.
26
 
27
proc 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.
49
proc 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.
55
proc 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
 
61
proc 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 >)"
82
    test_single_component "operator>(X::Y)"
83
 
84
    # Operator names can show up in weird places.
85
 
86
    test_single_component "int operator<< ()"
87
    test_single_component "T"
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()"
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::bar" "C"
99
    gdb_test "maint cp first_component C > >::bar" "C > >"
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<"
110
}
111
 
112
proc 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
 
118
gdb_exit
119
gdb_start
120
 
121
test_help
122
test_first_component
123
test_namespace
124
 
125
gdb_exit
126
return 0

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.