1#   Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2007
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 <http://www.gnu.org/licenses/>.
16
17# This file was written by Elena Zannoni (ezannoni@cygnus.com)
18
19if $tracelevel then {
20    strace $tracelevel
21}
22
23
24#
25# test running programs
26#
27set prms_id 0
28set bug_id 0
29
30if { [skip_cplus_tests] } { continue }
31
32set testfile "annota2"
33set srcfile ${testfile}.cc
34set binfile ${objdir}/${subdir}/${testfile}
35
36if  { [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#
46if [is_remote target] then {
47    return 0
48}
49
50
51gdb_exit
52gdb_start
53gdb_reinitialize_dir $srcdir/$subdir
54gdb_load ${binfile}
55
56if [target_info exists gdb_stub] {
57    gdb_step_for_stub;
58}
59
60#
61# line number where we need to stop in main
62#
63set main_line 25
64
65# The commands we test here produce many lines of output; disable "press
66# <return> to continue" prompts.
67send_gdb "set height 0\n"
68gdb_expect -re "$gdb_prompt $"
69
70#
71# break at main
72#
73gdb_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
85set old_gdb_prompt $gdb_prompt
86set gdb_prompt "\r\n\032\032pre-prompt\r\n$gdb_prompt \r\n\032\032prompt\r\n"
87
88send_gdb "set annotate 2\n"
89gdb_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
95send_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#
110send_gdb "print a\n"
111gdb_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#
123send_gdb "continue\n"
124gdb_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\032frames-invalid\r\n\r\n\032\032exited 0\r\n\r\nProgram exited normally.\r\n\r\n\032\032frames-invalid\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#
134send_gdb "delete\n"
135gdb_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#
151send_gdb "break 22\n"
152gdb_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#
162set main_line 22
163
164#
165# run program up to breakpoint.
166#
167
168
169send_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#
179send_gdb "watch a.x\n"
180gdb_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#
191send_gdb "next\n"
192gdb_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#
210send_gdb "\003"
211gdb_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
228set gdb_prompt $old_gdb_prompt
229
230