ending-run.exp revision 1.8
1# This testcase is part of GDB, the GNU debugger. 2 3# Copyright 1997-2019 Free Software Foundation, Inc. 4 5# This program is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 3 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18# use this to debug: 19# 20#log_user 1 21 22# ending-run.exp -- Expect script to test ending a test run in gdb 23 24standard_testfile 25 26if { [prepare_for_testing "failed to prepare" $testfile] } { 27 return -1 28} 29remote_exec build "rm -f core" 30 31# CHFts23469: Test that you can "clear" a bp set at 32# a line _before_ the routine (which will default to the 33# first line in the routine, which turns out to correspond 34# to the prolog--that's another bug...) 35# 36 37gdb_test "b ending-run.c:1" ".*Breakpoint.*ending-run.c, line 1.*" \ 38 "bpt at line before routine" 39 40set break1_line [gdb_get_line_number "-break1-"] 41gdb_test "b ending-run.c:$break1_line" \ 42 ".*Note.*also.*Breakpoint 2.*ending-run.c, line $break1_line.*" \ 43 "b ending-run.c:$break1_line, one" 44 45# Set up to go to the next-to-last line of the program 46# 47set break2_line [gdb_get_line_number "-break2-"] 48gdb_test "b ending-run.c:$break2_line" ".*Breakpoint 3.*ending-run.c, line $break2_line.*" 49 50# Expect to hit the bp at line "1", but symbolize this 51# as line "13". Then try to clear it--this should work. 52# 53gdb_run_cmd 54gdb_test "" ".*Breakpoint.*1.*callee.*$break1_line.*" "run" 55 56gdb_test "cle" ".*Deleted breakpoints 1 2.*" "clear worked" 57gdb_test_multiple "i b" "cleared bp at line before routine" { 58 -re ".* breakpoint .* breakpoint .*$gdb_prompt $" { 59 fail "cleared bp at line before routine" 60 } 61 -re ".*3.*main.*$break2_line.*$gdb_prompt $" { 62 pass "cleared bp at line before routine" 63 } 64} 65 66# Test some other "clear" combinations 67# 68gdb_test "b ending-run.c:1" ".*Breakpoint.*4.*" 69gdb_test "b ending-run.c:$break1_line" ".*Note.*also.*Breakpoint.*5.*" "b ending-run.c:$break1_line, two" 70gdb_test "cle ending-run.c:$break1_line" \ 71 ".*Deleted breakpoints 4 5.*" "Cleared 2 by line" 72 73gdb_test_multiple "info line ending-run.c:$break1_line" "" { 74 -re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" { 75 set line_nine $expect_out(1,string) 76 gdb_test "b ending-run.c:$break1_line" ".*Breakpoint 6.*ending-run.c, line $break1_line.*" 77 gdb_test "b *$line_nine" ".*Note.*also.*Breakpoint 7.*" "breakpoint 7 at *ending-run.c:$break1_line" 78 gdb_test "cle" ".*Deleted breakpoints 6 7.*" "clear 2 by default" 79 } 80 -re ".*$gdb_prompt $" { 81 fail "need to fix test for new compile outcome" 82 } 83} 84 85gdb_test_multiple "i b" "all set to continue" { 86 -re ".* breakpoint .* breakpoint .*$gdb_prompt $" { 87 fail "all set to continue (didn't clear bps)" 88 } 89 -re ".*3.*main.*$break2_line.*$gdb_prompt $" { 90 pass "all set to continue" 91 } 92 -re ".*$gdb_prompt $" { 93 fail "all set to continue (missing bp at end)" 94 } 95} 96 97 98# See if we can step out with control. The "1 2 3" stuff 99# is output from the program. 100# 101if ![gdb_skip_stdio_test "cont"] { 102 gdb_test_stdio "cont" \ 103 "1 2 7 14 23 34 47 62 79" \ 104 "Breakpoint.*$break2_line.*" 105} else { 106 gdb_test "cont" ".*Breakpoint.*$break2_line.*" 107} 108 109if ![gdb_skip_stdio_test "Step to return"] { 110 gdb_test_stdio "next" \ 111 "Goodbye!" \ 112 "[expr {$break2_line + 1}].*" \ 113 "Step to return" 114} else { 115 gdb_test "next" ".*" "" 116} 117 118set old_timeout $timeout 119set timeout 50 120set program_exited 0 121set nexted 0 122 123gdb_test_multiple "next" "step out of main" { 124 -re "[expr {$break2_line + 2}]\[ \t\]+\}.*$gdb_prompt $" { 125 # sometimes we stop at the closing brace, if so, do another next 126 if { $nexted } { 127 fail "step out of main" 128 } else { 129 set nexted 1 130 send_gdb "next\n" 131 exp_continue 132 } 133 } 134 -re ".*Unable to find return pc for this frame.*$gdb_prompt $" { 135 fail "step out of main" 136 gdb_test "n" ".*" "" 137 } 138 -re ".*in.*start.*$gdb_prompt $" { 139 pass "step out of main" 140 } 141 -re ".*in.*bsp_trap.*$gdb_prompt $" { 142 pass "step out of main" 143 } 144 -re ".*in.*init.*$gdb_prompt $" { 145 # This is what happens on sparc64-elf ultra. 146 pass "step out of main" 147 } 148 -re ".*in.*dll_crt0_1.*$gdb_prompt $" { 149 # This is what happens on Cygwin. 150 pass "step out of main" 151 } 152 -re ".*WinMain.*$gdb_prompt $" { 153 # This is what happens on mingw32ce. 154 pass "step out of main" 155 } 156 -re ".*$inferior_exited_re normally.*$gdb_prompt $" { 157 # This is what happens on Linux i86 (and I would expect others) 158 set program_exited 1 159 pass "step out of main" 160 } 161 -re ".*in .nope ().*$gdb_prompt $" { 162 # This is what happens on Solaris currently -sts 1999-08-25 163 pass "step out of main" 164 } 165 -re ".*in _int_reset ().*$gdb_prompt $" { 166 # This is what happens on Sanyo XStormy16 167 pass "step out of main" 168 } 169 -re ".*init ().*$gdb_prompt $" { 170 # This is what happens on many Mips targets 171 pass "step out of main" 172 } 173 -re ".*in ..change.mode ().*$gdb_prompt $" { 174 # This is what happens on ARM in thumb mode -fn 2000-02-01 175 pass "step out of main" 176 } 177 -re ".*__rt_entry.* ().*$gdb_prompt $" { 178 # This is what happens on the ARM RVDS runtime 179 pass "step out of main" 180 } 181 -re ".*in.*\\\$START\\\$.*from.*dld.sl.*$gdb_prompt $" { 182 pass "step out of main" 183 } 184 -re ".*in __wrap__?main ().*$gdb_prompt $" { 185 pass "step out of main" 186 } 187 -re "__setup_argv_for_main (.*).*$gdb_prompt $" { 188 # On sh, another wrapper function (start_l) exists, so 189 # another `next' is necessary. 190 gdb_test "next" ".*in start_l ().*" "step out of main" 191 } 192 -re "E32Main (.*).*$gdb_prompt $" { 193 # On SymbianOS there's a different function which calls main. 194 pass "step out of main" 195 } 196 -re ".*in.*currently asm.*$gdb_prompt $" { 197 pass "step out of main" 198 } 199 -re "_*start\[0-9\]* \\(\[^)\]*\\).*$gdb_prompt $" { 200 pass "step out of main" 201 } 202 -re ".*Program received signal SIGTRAP.*$gdb_prompt $" { 203 pass "step out of main" 204 } 205 -re ".*in.*__uClibc_main.*$gdb_prompt $" { 206 # This is what happens on system using uClibc. 207 pass "step out of main" 208 } 209} 210 211# When we're talking to a program running on a real stand-alone board, 212# every BSP's exit function behaves differently, so there's no single 213# way to tell whether we've exited gracefully or not. So don't run 214# these tests when use_gdb_stub is set, or when we're running under Cygmon. 215set program_exited_normally 0 216set program_not_exited 0 217set program_in_exit 0 218if {!$use_gdb_stub 219 && (! [target_info exists use_cygmon] || ! [target_info use_cygmon])} { 220 global program_exited 221 if {[eval expr $program_exited == 0]} { 222 gdb_test_multiple "n" "step to end of run" { 223 -re "$inferior_exited_re normally.*$gdb_prompt $" { 224 # If we actually have debug info for the start function, 225 # then we won't get the "Single-stepping until function 226 # exit" message. 227 pass "step to end of run" 228 set program_exited_normally 1 229 } 230 -re "Single.*EXIT code 0\r\n.*$inferior_exited_re normally.*$gdb_prompt $" { 231 pass "step to end of run (status wrapper)" 232 set program_exited_normally 1 233 } 234 -re "Single.*EXIT code 0\r\n.*$gdb_prompt $" { 235 pass "step to end of run (status wrapper)" 236 } 237 -re ".*Single.*$inferior_exited_re.*$gdb_prompt $" { 238 pass "step to end of run" 239 set program_exited_normally 1 240 } 241 -re ".*Single.*in exit.*from.*dld.sl.*$gdb_prompt $" { 242 pass "step to end of run" 243 set program_in_exit 1 244 } 245 -re ".*Single.*_int_reset.*$gdb_prompt $" { 246 pass "step to end of run" 247 if {![istarget "xstormy16-*-*"]} { 248 set program_exited_normally 1 249 } 250 } 251 } 252 } 253 254 if {$program_in_exit} { 255 if {[gdb_test "c" ".*" "continue after exit"] == 0} { 256 set program_exited_normally 1 257 } 258 } else { 259 unsupported "continue after exit" 260 } 261 262 if {$program_exited_normally} { 263 gdb_test "n" ".*The program is not being run.*" "don't step after run" 264 } elseif {$program_not_exited} { 265 unresolved "don't step after run" 266 } else { 267 unsupported "don't step after run" 268 } 269 270 set exec_output [remote_exec host "ls core"] 271 272 if [ regexp "core not found" $exec_output] { 273 pass "no core dumped on quit" 274 } else { 275 if [ regexp "No such file or directory" $exec_output] { 276 pass "ls: core (No core dumped on quit)" 277 } else { 278 remote_exec build "rm -f core" 279 fail "ls: core (Core dumped on quit)" 280 } 281 } 282} 283 284set timeout $old_timeout 285 286#remote_exec build "rm -f ${binfile}" 287return 0 288 289 290 291 292