annota3.exp revision 1.11
1 # Copyright 2003-2024 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 <http://www.gnu.org/licenses/>. 15 16 # This file was written by Elena Zannoni (ezannoni (at) cygnus.com) 17 18 19 # This testcase cannot use runto_main because of the different prompt 20 # we get when using annotation level 2. 21 # 22 require target_can_use_run_cmd 23 24 25 # 26 # test running programs 27 # 28 29 standard_testfile .c 30 31 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } { 32 untested "failed to compile" 33 return -1 34 } 35 36 37 clean_restart ${binfile} 38 39 # The commands we test here produce many lines of output; disable "press 40 # <return> to continue" prompts. 41 gdb_test_no_output "set height 0" 42 43 # 44 # break in main 45 # 46 47 set main_line [gdb_get_line_number "break main"] 48 49 gdb_test "break ${srcfile}:${main_line}" \ 50 "Breakpoint.*at.* file .*$srcfile, line $main_line\\." \ 51 "breakpoint main" 52 53 54 # NOTE: this prompt is OK only when the annotation level is > 1 55 56 # NOTE: When this prompt is in use the gdb_test procedure cannot be 57 # used because it assumes that the last char after the gdb_prompt is a 58 # white space. This is not true with this annotated prompt. So we must 59 # use send_gdb and gdb_expect or gdb_expect_list. 60 61 set old_gdb_prompt $gdb_prompt 62 set gdb_prompt "\r\n\032\032pre-prompt\r\n$gdb_prompt \r\n\032\032prompt\r\n" 63 64 65 66 # 67 # set the annotation level to 3 68 # 69 # of course, this will test: 70 # annotate-pre-prompt 71 # annotate-prompt 72 # annotate-post-prompt (in the next block) 73 # 74 send_gdb "set annotate 3\n" 75 gdb_expect_list "annotation set at level 3" "\r\n$gdb_prompt$" { 76 "set annotate 3" 77 } 78 79 # 80 # if construct: 81 # 82 gdb_test_multiple "if 1" "start if construct" { 83 -re "^if 1\r\n\r\n\032\032post-prompt\r\n\r\n\032\032pre-commands\r\n >\r\n\032\032commands\r\n$" { 84 pass "start if construct" 85 } 86 } 87 88 gdb_test_multiple "end" "end if construct" { 89 -re "^end\r\n\r\n\032\032post-commands\r\n$gdb_prompt$" { 90 pass "end if construct" 91 } 92 } 93 94 # 95 # info break: 96 # 97 send_gdb "info break\n" 98 gdb_expect_list "breakpoint info" "$gdb_prompt$" [concat { 99 "\r\n\032\032post-prompt\r\n" 100 "Num Type Disp Enb Address +What\r\n" } [list \ 101 "1 breakpoint keep y 0x\[0-9a-zA-Z\]+ +in main at .*annota3.c:$main_line\r\n"]] 102 103 104 # 105 # run to a break point will test: 106 # 107 #exp_internal 1 108 send_gdb "run\n" 109 gdb_expect_list "run until main breakpoint" "$gdb_prompt$" [concat { 110 "\r\n\032\032post-prompt\r\n" 111 "Starting program: .*annota3(|\.exe) \r\n" 112 "\r\n\032\032starting\r\n" 113 "\r\n\032\032breakpoint 1\r\n" 114 "\r\n" 115 "Breakpoint 1, " 116 "\r\n\032\032frame-begin 0 0x\[0-9a-z\]+\r\n" } [list \ 117 "main \\(\\) at .*annota3.c:$main_line\r\n"] [list \ 118 "\r\n\032\032source.*annota3.c:$main_line:.*:beg:0x\[0-9a-z\]+\r\n"] { 119 "\r\n\032\032stopped\r\n" 120 }] 121 #exp_internal 0 122 #exit 0 123 124 # 125 # Let's do a next, to get to a point where the array is initialized 126 # We don't care about the annotated output for this operation, it is the same as 127 # the one produced by run above 128 # 129 send_gdb "next\n" 130 gdb_expect_list "go after array init line" "$gdb_prompt$" { 131 "\r\n\032\032post-prompt\r\n" 132 "\r\n\032\032starting\r\n" 133 "\r\n\032\032source .*annota3.c:\[0-9\]+:\[0-9\]+:beg:0x\[0-9a-z\]+\r\n" 134 "\r\n\032\032stopped\r\n" 135 } 136 137 138 # 139 # printing the array: 140 # 141 send_gdb "print my_array\n" 142 gdb_expect_list "print array" "$gdb_prompt$" { 143 "\r\n\032\032post-prompt\r\n" 144 ".*= .1, 2, 3.\r\n" 145 } 146 147 148 # 149 # this should generate an error message, so to test: 150 # annotate-error-begin 151 # FIXME: annotate-error not tested 152 # 153 154 #exp_internal 1 155 send_gdb "print non_existent_value\n" 156 gdb_expect_list "print non_existent_value" "$gdb_prompt$" { 157 "\r\n\032\032post-prompt\r\n" 158 "\r\n\032\032error-begin\r\n" 159 "No symbol \"non_existent_value\" in current context.\r\n" 160 "\r\n\032\032error\r\n" 161 } 162 163 164 # 165 # break at signal handler 166 # 167 send_gdb "break handle_USR1\n" 168 gdb_expect_list "breakpoint handle_USR1" "$gdb_prompt$" { 169 "\r\n\032\032post-prompt\r\n" 170 "Breakpoint.*at 0x\[0-9a-z\]+: file.*annota3.c, line.*\r\n" 171 } 172 173 # 174 # break at printf. When we are stopped at printf, we can test 175 # 176 send_gdb "break printf\n" 177 gdb_expect_list "breakpoint printf" "$gdb_prompt$" { 178 "\r\n\032\032post-prompt\r\n" 179 "Breakpoint.*at 0x\[0-9a-z\]+.*" 180 } 181 182 # 183 # get to printf 184 # 185 send_gdb "continue\n" 186 gdb_expect_list "continue to printf" "$gdb_prompt$" { 187 "\r\n\032\032post-prompt\r\n" 188 "Continuing.\r\n" 189 "\r\n\032\032starting\r\n" 190 "\r\n\032\032breakpoint 3\r\n" 191 "\r\n" 192 "Breakpoint 3, \[^\r\n\]*\r\n" 193 "\r\n\032\032stopped\r\n" 194 } 195 196 send_gdb "backtrace\n" 197 gdb_expect_list "backtrace from shlibrary" "$gdb_prompt$" { 198 "\r\n\032\032post-prompt\r\n" 199 "#0 .* .*printf(@\[^ ]*)? \[^\r\n\]*\r\n" 200 "#1 .* main \[^\r\n\]*\r\n" 201 } 202 203 204 # 205 # test printing a frame with some arguments: 206 # 207 208 if [target_info exists gdb,nosignals] { 209 unsupported "send SIGUSR1" 210 unsupported "backtrace @ signal handler" 211 } else { 212 send_gdb "signal SIGUSR1\n" 213 gdb_expect_list "send SIGUSR1" "$gdb_prompt$" { 214 "\r\n\032\032post-prompt\r\n" 215 "Continuing with signal SIGUSR1.\r\n" 216 "\r\n\032\032starting\r\n" 217 "\r\n\032\032breakpoint 2\r\n" 218 "\r\n" 219 "Breakpoint 2, " 220 "\r\n\032\032frame-begin 0 0x\[0-9a-z\]+\r\n" 221 "handle_USR1 \\(sig=\[0-9\]+\\) at .*annota3.c:\[0-9\]+\r\n" 222 "\r\n\032\032source .*annota3.c:\[0-9\]+:\[0-9\]+:beg:0x\[0-9a-z\]+\r\n" 223 "\r\n\032\032stopped\r\n" 224 } 225 226 # 227 # test: 228 # 229 send_gdb "backtrace\n" 230 gdb_expect_list "backtrace @ signal handler" "$gdb_prompt$" { 231 "#0 +handle_USR1 \[^\r\n\]+\r\n" 232 "#1 +.signal handler called.\r\n" 233 "#2 .* .*printf(@\[^ \]*)? \[^\r\n\]+\r\n" 234 "#3 .* main \[^\r\n\]+\r\n" 235 } 236 } 237 238 # 239 # delete all the breakpoints 240 # 241 send_gdb "delete 1\n" 242 gdb_expect_list "delete bp 1" "$gdb_prompt$" { 243 "\r\n\032\032post-prompt\r\n" 244 } 245 246 send_gdb "delete 2\n" 247 gdb_expect_list "delete bp 2" "$gdb_prompt$" { 248 "\r\n\032\032post-prompt\r\n" 249 } 250 251 send_gdb "delete 3\n" 252 gdb_expect_list "delete bp 3" "$gdb_prompt$" { 253 "\r\n\032\032post-prompt\r\n" 254 } 255 256 # 257 # break in main, after value is initialized. This is in preparation 258 # to test the annotate output for the display command. 259 # 260 send_gdb "break ${srcfile}:${main_line}\n" 261 gdb_expect_list "break in main" "$gdb_prompt$" [concat { 262 "\r\n\032\032post-prompt\r\n" } [list \ 263 "Breakpoint 4 at 0x\[0-9a-z\]+: file .*annota3.c, line $main_line.\r\n"]] 264 265 # 266 # display the value 267 # 268 send_gdb "display value\n" 269 gdb_expect_list "set up display" "$gdb_prompt$" { 270 "\r\n\032\032post-prompt\r\n" 271 "1: value = 7\r\n" 272 } 273 274 # Get the core into the output directory. 275 if {![is_remote host]} { 276 gdb_test -prompt "$gdb_prompt$" \ 277 "set cwd [file dirname $binfile]" "" \ 278 "set inferior cwd to test directory" 279 } 280 281 # should ask query. Test annotate-query. 282 # we don't care about anything else here, only the query. 283 284 send_gdb "run\n" 285 gdb_expect { 286 -re "pre-query.*already.*\\(y or n\\).*query\r\n" { 287 send_gdb "y\n" 288 gdb_expect { 289 -re ".*post-query.*$gdb_prompt$" \ 290 { pass "re-run" } 291 -re ".*$gdb_prompt$" { fail "re-run" } 292 timeout { fail "re-run (timeout)" } 293 } 294 } 295 -re ".*$gdb_prompt$" { fail "re-run" } 296 timeout { fail "re-run (timeout)" } 297 } 298 299 # 300 # Test that breakpoints-invalid is issued once and only once for 301 # breakpoint ignore count changes, after annotation stopped. 302 # NOTE: breakpoints-invalid annotations have been removed from 303 # level 3 but keep these tests for continuity and comparison 304 # with annota1.exp. 305 306 set value_inc_line [gdb_get_line_number "increment value"] 307 308 send_gdb "break $value_inc_line\n" 309 gdb_expect_list "break at value++" "$gdb_prompt$" [concat { 310 "\r\n\032\032post-prompt\r\n" } [list \ 311 "Breakpoint 5 at 0x\[0-9a-z\]+: file .*annota3.c, line $value_inc_line.\r\n"]] 312 313 send_gdb "ignore 5 4\n" 314 gdb_expect_list "ignore 5 4" "$gdb_prompt$" { 315 "\r\n\032\032post-prompt\r\n" 316 "Will ignore next 4 crossings of breakpoint 5" 317 "\r\n" 318 } 319 320 send_gdb "continue\n" 321 gdb_expect_list "annotate ignore count change" "$gdb_prompt$" [concat { 322 "\r\n\032\032post-prompt\r\n" 323 "\r\n\032\032breakpoint 5\r\n" 324 "\r\n" 325 "Breakpoint 5, " 326 "\r\n\032\032frame-begin 0 0x\[0-9a-z\]+\r\n" } [list \ 327 "main \\(\\) at .*annota3.c:$value_inc_line\r\n"] [list \ 328 "\r\n\032\032source .*annota3.c:$value_inc_line:\[0-9\]+:beg:0x\[0-9a-z\]+\r\n"] { 329 "1: value = 11\r\n" 330 "\r\n\032\032stopped\r\n" 331 }] 332 333 # check that ignore command is working, or the above can provide 334 # misleading assurance ... 335 336 send_gdb "next\n" 337 gdb_expect_list "next to exit loop" "$gdb_prompt$" { 338 "\r\n\032\032post-prompt\r\n" 339 "\r\n\032\032starting\r\n" 340 "\r\n\032\032source.*annota3.c:\[0-9\]+:\[0-9\]+:beg:0x\[0-9a-z\]+\r\n" 341 "1: value = 12\r\n" 342 "\r\n\032\032stopped\r\n" 343 } 344 345 set after_loop_line [gdb_get_line_number "after loop"] 346 347 send_gdb "next\n" 348 gdb_expect_list "breakpoint ignore count" "$gdb_prompt$" [concat { 349 "\r\n\032\032post-prompt\r\n" 350 "\r\n\032\032starting\r\n" } [list \ 351 "\r\n\032\032source.*annota3.c:$after_loop_line:\[0-9\]+:beg:0x\[0-9a-z\]+\r\n"] { 352 "1: value = 12\r\n" 353 "\r\n\032\032stopped\r\n" 354 }] 355 356 # Get the inferior's PID for later. 357 358 set test "get inferior pid" 359 set pid -1 360 gdb_test_multiple "info inferior 1" "$test" { 361 -re "process (\[0-9\]*).*$gdb_prompt$" { 362 set pid $expect_out(1,string) 363 pass "$test" 364 } 365 } 366 367 # Send a signal that is not handled 368 369 if [target_info exists gdb,nosignals] { 370 unsupported "signal sent" 371 } else { 372 send_gdb "signal SIGTRAP\n" 373 gdb_expect_list "signal sent" "$gdb_prompt$" { 374 "\r\n\032\032post-prompt\r\n" 375 "Continuing with signal SIGTRAP.\r\n" 376 "\r\n\032\032starting\r\n" 377 "\r\n\032\032signalled\r\n" 378 "\r\nProgram terminated with signal SIGTRAP, Trace.breakpoint trap.\r\n" 379 "The program no longer exists.\r\n" 380 "\r\n\032\032stopped\r\n" 381 } 382 } 383 384 385 # Check for production of a core file and remove it! 386 remove_core $pid 387 388 # restore the original prompt for the rest of the testsuite 389 390 set gdb_prompt $old_gdb_prompt 391
Indexes created Wed Jul 01 00:25:26 UTC 2026