OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
#   Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2007, 2008
2
#   Free Software Foundation, Inc.
3
 
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 3 of the License, or
7
# (at your option) any later version.
8
#
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
# GNU General Public License for more details.
13
#
14
# You should have received a copy of the GNU General Public License
15
# along with this program.  If not, see .
16
 
17
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
18
 
19
if $tracelevel then {
20
    strace $tracelevel
21
}
22
 
23
 
24
#
25
# test running programs
26
#
27
set prms_id 0
28
set bug_id 0
29
 
30
if { [skip_cplus_tests] } { continue }
31
 
32
set testfile "annota2"
33
set srcfile ${testfile}.cc
34
set binfile ${objdir}/${subdir}/${testfile}
35
 
36
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++ nowarnings}] != "" } {
37
    untested annota2.exp
38
    return -1
39
}
40
 
41
# are we on a target board? If so, don't run these tests.
42
# note: this is necessary because we cannot use runto_main (which would
43
# work for remote targets too) because of the different prompt we get
44
# when using annotation level 2.
45
#
46
if [is_remote target] then {
47
    return 0
48
}
49
 
50
 
51
gdb_exit
52
gdb_start
53
gdb_reinitialize_dir $srcdir/$subdir
54
gdb_load ${binfile}
55
 
56
if [target_info exists gdb_stub] {
57
    gdb_step_for_stub;
58
}
59
 
60
#
61
# line number where we need to stop in main
62
#
63
set main_line 25
64
 
65
# The commands we test here produce many lines of output; disable "press
66
#  to continue" prompts.
67
send_gdb "set height 0\n"
68
gdb_expect -re "$gdb_prompt $"
69
 
70
#
71
# break at main
72
#
73
gdb_test "break 25" \
74
    "Breakpoint.*at.* file .*$srcfile, line.*" \
75
    "breakpoint main"
76
 
77
 
78
#
79
# NOTE: this prompt is OK only when the annotation level is > 1
80
# NOTE: When this prompt is in use the gdb_test procedure cannot be used because
81
# it assumes that the last char of the gdb_prompt is a white space. This is not
82
# true with this annotated prompt. So we must use send_gdb and gdb_expect.
83
#
84
 
85
set old_gdb_prompt $gdb_prompt
86
set gdb_prompt "\r\n\032\032pre-prompt\r\n$gdb_prompt \r\n\032\032prompt\r\n"
87
 
88
send_gdb "set annotate 2\n"
89
gdb_expect {
90
    -re "set annotate 2\r\n$gdb_prompt$" { pass "annotation set at level 2" }
91
    -re ".*$gdb_prompt$"       { fail "annotation set at level 2" }
92
    timeout                 { fail "annotation set at level 2 (timeout)" }
93
  }
94
 
95
send_gdb "run\n"
96
  gdb_expect {
97
    -re "$main_line.*$gdb_prompt$" { pass "run until main breakpoint" }
98
    -re ".*$gdb_prompt$"       { fail "run until main breakpoint" }
99
    timeout                 { fail "run until main breakpoint (timeout)" }
100
  }
101
 
102
#
103
# print class 'a' with public fields.
104
# this will test:
105
# annotate-field-begin
106
# annotate-field-name-end
107
# annotate-field-value
108
# annotate-field-end
109
#
110
send_gdb "print a\n"
111
gdb_expect {
112
  -re "\r\n\032\032post-prompt\r\n\r\n\032\032value-history-begin 1 -\r\n.*= \r\n\032\032value-history-value\r\n\\{\r\n\032\032field-begin -\r\nx\r\n\032\032field-name-end\r\n = \r\n\032\032field-value\r\n1\r\n\032\032field-end\r\n, \r\n\032\032field-begin -\r\ny\r\n\032\032field-name-end\r\n = \r\n\032\032field-value\r\n2\r\n\032\032field-end\r\n\\}\r\n\r\n\032\032value-history-end\r\n$gdb_prompt$" \
113
        { pass "print class" }
114
  -re ".*$gdb_prompt$"     { fail "print class" }
115
  timeout                   { fail "print class (timeout)" }
116
}
117
 
118
#
119
# continue until exit
120
# this will test:
121
# annotate-exited
122
#
123
send_gdb "continue\n"
124
gdb_expect {
125
  -re "\r\n\032\032post-prompt\r\nContinuing.\r\n\r\n\032\032starting\r\n\r\n\032\032frames-invalid\r\na.x is 1\r\n\r\n\032\032exited 0\r\n\r\nProgram exited normally.\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
126
          { pass "continue until exit" }
127
  -re ".*$gdb_prompt$"     { fail "continue to exit" }
128
  timeout                   { fail "continue to exit (timeout)" }
129
}
130
 
131
#
132
# delete all breakpoints
133
#
134
send_gdb "delete\n"
135
gdb_expect {
136
  -re ".*Delete all breakpoints. \\(y or n\\) \r\n\032\032query.*$" {
137
           send_gdb "y\n"
138
           gdb_expect {
139
             -re "\r\n\032\032post-query\r\n$gdb_prompt$" { pass "delete bps" }
140
             -re ".*$gdb_prompt$" { fail "delete bps" }
141
             timeout  { fail "delete bps (timeout)" }
142
         }
143
     }
144
  -re ".*$gdb_prompt$" { fail "delete bps" }
145
  timeout  { fail "delete bps (timeout)" }
146
}
147
 
148
#
149
# break at first line of main.
150
#
151
send_gdb "break 22\n"
152
gdb_expect {
153
  -re  "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex: file.*$srcfile, line.*\r\n$gdb_prompt$" \
154
            { pass "breakpoint at main" }
155
  -re ".*$gdb_prompt$"     { fail "break at main" }
156
  timeout                   { fail "break at main (timeout)" }
157
}
158
 
159
#
160
# change value of main_line
161
#
162
set main_line 22
163
 
164
#
165
# run program up to breakpoint.
166
#
167
 
168
 
169
send_gdb "run\n"
170
  gdb_expect {
171
    -re "$main_line.*$gdb_prompt$"    { pass "run until main breakpoint" }
172
    -re ".*$gdb_prompt$"       { fail "run until main breakpoint" }
173
    timeout                 { fail "run until main breakpoint (timeout)" }
174
  }
175
 
176
#
177
# set up a watch point on a.x
178
#
179
send_gdb "watch a.x\n"
180
gdb_expect {
181
   -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\n.*atchpoint 3: a.x\r\n$gdb_prompt$" \
182
           { pass "set watch on a.x" }
183
   -re ".*$gdb_prompt$"  { fail "set watch on a.x" }
184
   timeout    { fail "set watch on a.x (timeout)" }
185
}
186
 
187
#
188
# do a next, so that the watchpoint triggers. This will test:
189
# annotate-watchpoint
190
#
191
send_gdb "next\n"
192
gdb_expect {
193
   -re "\r\n\032\032post-prompt\r\n\r\n\032\032starting\r\n\r\n(\032\032frames-invalid\r\n\r\n)*\032\032watchpoint 3\r\n.*atchpoint 3: a.x\r\n\r\nOld value = 0\r\nNew value = 1\r\n\r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nmain\r\n\032\032frame-args\r\n \\(\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*$srcfile\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n$decimal\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source .*$srcfile.*beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n.*$gdb_prompt$" \
194
           { pass "watch triggered on a.x" }
195
   -re "\r\n\032\032post-prompt\r\n\r\n\032\032starting\r\n\r\n\032\032frames-invalid\r\n\r\n\032\032source .*$srcfile.*beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
196
           { kfail "gdb/38" "watch triggered on a.x" }
197
   -re ".*$gdb_prompt$"  { fail "watch triggered on a.x" }
198
   timeout    { fail "watch triggered on a.x (timeout)" }
199
}
200
 
201
 
202
#
203
# send ^C to gdb, so that the quit() function gets called
204
# and annotate-quit is tested
205
# test:
206
# annotate-quit
207
#
208
# This test sometimes fails, but not reproducibly.  See gdb/544.
209
#
210
send_gdb "\003"
211
gdb_expect {
212
    -re "\r\n\032\032error-begin\r\nQuit\r\n\r\n\032\032quit\r\n$gdb_prompt$" \
213
            { pass "annotate-quit" }
214
    -re "$gdb_prompt$" { kfail "gdb/544" "annotate-quit" }
215
    -re ".*$gdb_prompt$" { fail "annotate-quit" }
216
    timeout { fail "annotate-quit (timeout)" }
217
}
218
 
219
#
220
# FIXME: the testsuite does not currently have tests for
221
#        annotate_catchpoints and annotate_function_call
222
#        and a few variants of the annotations that are
223
#        tested (marked by FIXME on the annot?.exp files)
224
#
225
 
226
# reinstall the old prompt for the rest of the testsuite.
227
 
228
set gdb_prompt $old_gdb_prompt
229
 

powered by: WebSVN 2.1.0

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