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