1 # This testcase is part of GDB, the GNU debugger.
3 # Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2007, 2008
4 # Free Software Foundation, Inc.
6 # This program is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program. If not, see <http://www.gnu.org/licenses/>.
23 # ending-run.exp -- Expect script to test ending a test run in gdb
29 set testfile ending-run
30 set srcfile ${testfile}.c
31 set binfile ${objdir}/${subdir}/${testfile}
33 remote_exec build "rm -f ${binfile}"
34 remote_exec build "rm -f core"
37 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
38 untested ending-run.exp
46 gdb_reinitialize_dir $srcdir/$subdir
49 # CHFts23469: Test that you can "clear" a bp set at
50 # a line _before_ the routine (which will default to the
51 # first line in the routine, which turns out to correspond
52 # to the prolog--that's another bug...)
55 gdb_test "b ending-run.c:1" ".*Breakpoint.*ending-run.c, line 1.*" \
56 "bpt at line before routine"
58 gdb_test "b ending-run.c:13" \
59 ".*Note.*also.*Breakpoint 2.*ending-run.c, line 13.*" \
60 "b ending-run.c:13, one"
62 # Set up to go to the next-to-last line of the program
64 gdb_test "b ending-run.c:31" ".*Breakpoint 3.*ending-run.c, line 31.*"
66 # Expect to hit the bp at line "1", but symbolize this
67 # as line "13". Then try to clear it--this should work.
70 gdb_test "" ".*Breakpoint.*1.*callee.*13.*" "run"
72 gdb_test "cle" ".*Deleted breakpoints 1 2.*" "clear worked"
75 -re ".* breakpoint .* breakpoint .*$gdb_prompt $" {
76 fail "cleared bp at line before routine"
78 -re ".*3.*main.*31.*$gdb_prompt $" {
79 pass "cleared bp at line before routine"
81 -re ".*$gdb_prompt $" {
82 fail "cleared bp at line before routine (info b)"
86 # Test some other "clear" combinations
88 gdb_test "b ending-run.c:1" ".*Breakpoint.*4.*"
89 gdb_test "b ending-run.c:13" ".*Note.*also.*Breakpoint.*5.*" "b ending-run.c:13, two"
90 gdb_test "cle ending-run.c:13" \
91 ".*Deleted breakpoint 5.*" "Only cleared 1 by line"
93 send_gdb "inf line ending-run.c:13\n"
95 -re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" {
96 set line_eight $expect_out(1,string)
97 gdb_test "b 13" ".*Breakpoint.*6.*"
98 gdb_test "cle *$line_eight" ".*Deleted breakpoints 4 6.*" "Clear 2 by address"
100 -re ".*$gdb_prompt $" {
101 fail "need to fix test for new compile outcome"
105 send_gdb "inf line ending-run.c:14\n"
107 -re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" {
108 set line_nine $expect_out(1,string)
109 gdb_test "b ending-run.c:14" ".*Breakpoint 7.*ending-run.c, line 14.*"
110 gdb_test "b *$line_nine" ".*Note.*also.*Breakpoint 8.*" "Breakpoint 7 at *ending-run.c:14"
111 gdb_test "c" ".*Breakpoint.*7.*callee.*14.*"
112 gdb_test "cle" ".*Deleted breakpoints 7 8.*" "Clear 2 by default"
114 -re ".*$gdb_prompt $" {
115 fail "need to fix test for new compile outcome"
121 -re ".* breakpoint .* breakpoint .*$gdb_prompt $" {
122 fail "all set to continue (didn't clear bps)"
124 -re ".*3.*main.*31.*$gdb_prompt $" {
125 pass "all set to continue"
127 -re ".*$gdb_prompt $" {
128 fail "all set to continue (missing bp at end)"
133 # See if we can step out with control. The "1 2 3" stuff
134 # is output from the program.
136 if ![gdb_skip_stdio_test "cont"] {
137 gdb_test "cont" ".*1 2 7 14 23 34 47 62 79.*Breakpoint.*31.*"
139 gdb_test "cont" ".*Breakpoint.*31.*"
142 if ![gdb_skip_stdio_test "Step to return"] {
143 gdb_test "next" ".*Goodbye!.*32.*" \
146 gdb_test "next" "" ""
149 set old_timeout $timeout
155 -re "33.*$gdb_prompt $" {
156 # sometimes we stop at the closing brace, if so, do another next
158 fail "step out of main"
165 -re ".*Unable to find return pc for this frame.*$gdb_prompt $" {
166 fail "step out of main"
169 -re ".*in.*start.*$gdb_prompt $" {
170 pass "step out of main"
172 -re ".*in.*bsp_trap.*$gdb_prompt $" {
173 pass "step out of main"
175 -re ".*in.*init.*$gdb_prompt $" {
176 # This is what happens on sparc64-elf ultra.
177 pass "step out of main"
179 -re ".*in.*dll_crt0_1.*$gdb_prompt $" {
180 # This is what happens on Cygwin.
181 pass "step out of main"
183 -re ".*Program exited normally.*$gdb_prompt $" {
184 # This is what happens on Linux i86 (and I would expect others)
186 pass "step out of main"
188 -re ".*in .nope ().*$gdb_prompt $" {
189 # This is what happens on Solaris currently -sts 1999-08-25
190 pass "step out of main"
192 -re ".*in _int_reset ().*$gdb_prompt $" {
193 # This is what happens on Sanyo XStormy16
194 pass "step out of main"
196 -re ".*init ().*$gdb_prompt $" {
197 # This is what happens on many Mips targets
198 pass "step out of main"
200 -re ".*in ..change.mode ().*$gdb_prompt $" {
201 # This is what happens on ARM in thumb mode -fn 2000-02-01
202 pass "step out of main"
204 -re ".*__rt_entry ().*$gdb_prompt $" {
205 # This is what happens on the ARM RVDS runtime
206 pass "step out of main"
208 -re ".*in.*\\\$START\\\$.*from.*dld.sl.*$gdb_prompt $" {
209 pass "step out of main"
211 -re ".*in __wrap__?main ().*$gdb_prompt $" {
212 pass "step out of main"
214 -re "__setup_argv_for_main (.*).*$gdb_prompt $" {
215 # On sh, another wrapper function (start_l) exists, so
216 # another `next' is necessary.
217 gdb_test "next" ".*in start_l ().*" "step out of main"
219 -re ".*in.*currently asm.*$gdb_prompt $" {
220 pass "step out of main"
222 -re "_*start\[0-9\]* \\(\[^)\]*\\).*$gdb_prompt $" {
223 pass "step out of main"
225 -re ".*Program received signal SIGTRAP.*$gdb_prompt $" {
226 pass "step out of main"
228 -re ".*$gdb_prompt $" { fail "step out of main" }
229 timeout { fail "step out of main" }
232 # When we're talking to a program running on a real stand-alone board,
233 # every BSP's exit function behaves differently, so there's no single
234 # way to tell whether we've exited gracefully or not. So don't run
235 # these tests when use_gdb_stub is set, or when we're running under Cygmon.
236 set program_exited_normally 0
237 set program_not_exited 0
238 set program_in_exit 0
239 if {! [target_info exists use_gdb_stub]
240 && (! [target_info exists use_cygmon] || ! [target_info use_cygmon])} {
241 global program_exited;
242 if {[eval expr $program_exited == 0]} {
245 -re "Program exited normally.*$gdb_prompt $" {
246 # If we actually have debug info for the start function,
247 # then we won't get the "Single-stepping until function
249 pass "step to end of run"
250 set program_exited_normally 1
252 -re "Single.*EXIT code 0\r\n.*Program exited normally.*$gdb_prompt $" {
253 pass "step to end of run (status wrapper)"
254 set program_exited_normally 1
256 -re "Single.*EXIT code 0\r\n.*$gdb_prompt $" {
257 pass "step to end of run (status wrapper)"
259 -re ".*Single.*Program exited.*$gdb_prompt $" {
260 pass "step to end of run"
261 set program_exited_normally 1
263 -re ".*Single.*in exit.*from.*dld.sl.*$gdb_prompt $" {
264 pass "step to end of run"
265 set program_in_exit 1
267 -re ".*Single.*_int_reset.*$gdb_prompt $" {
268 pass "step to end of run"
269 if {![istarget "xstormy16-*-*"]} {
270 set program_exited_normally 1
273 -re ".*$gdb_prompt $" {
274 fail "step to end of run"
275 set program_not_exited 1
278 fail "(timeout) step to end of run"
279 set program_not_exited 1
284 if {$program_in_exit} {
285 if {[gdb_test "c" ".*" "continue after exit"] == 0} {
286 set program_exited_normally 1
289 unsupported "continue after exit"
292 set timeout $old_timeout
294 if {$program_exited_normally} {
295 gdb_test "n" ".*The program is not being run.*" "don't step after run"
296 } elseif {$program_not_exited} {
297 unresolved "don't step after run"
299 unsupported "don't step after run"
302 set exec_output [remote_exec host "ls core"]
304 if [ regexp "core not found" $exec_output] {
305 pass "No core dumped on quit"
307 if [ regexp "No such file or directory" $exec_output] {
308 pass "ls: core (No core dumped on quit)"
310 remote_exec build "rm -f core"
311 fail "ls: core (Core dumped on quit)"
316 #remote_exec build "rm -f ${binfile}"