1 # Copyright 1999, 2000, 2001, 2002, 2004, 2005, 2007, 2008
2 # Free Software Foundation, Inc.
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.
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.
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/>.
17 # Test Machine interface (MI) operations
18 # Verify that, using the MI, we can run a simple program and perform
19 # exec-step-instruction and exec-next-instruction.
22 # test gdb functionality, which is done by other tests, but to verify
23 # the correct output response to MI operations.
26 load_lib mi-support.exp
35 set srcfile ${testfile}.c
36 set binfile ${objdir}/${subdir}/${testfile}
37 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
42 proc test_stepi_nexti {} {
44 global hex fullname_syntax srcfile
46 set line_main_head [gdb_get_line_number "main ("]
47 set line_main_body [expr $line_main_head + 2]
48 set line_main_hello [gdb_get_line_number "Hello, World!"]
50 send_gdb "111-exec-step-instruction\n"
52 -re "111\\^running\r\n${mi_gdb_prompt}111\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"main\",args=\\\[\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"(\[0-9\]+)\"\}\r\n$mi_gdb_prompt$" {
53 set line $expect_out(2,string)
54 if { $line >= $line_main_body && $line <= $line_main_hello } {
55 pass "step-instruction at main"
57 fail "step-instruction at main"
61 fail "step-instruction at main (timeout)"
64 send_gdb "222-exec-next-instruction\n"
66 -re "222\\^running\r\n${mi_gdb_prompt}222\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"main\",args=\\\[\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"(\[0-9\]+)\"\}\r\n$mi_gdb_prompt$" {
67 set line $expect_out(2,string)
68 if { $line >= $line_main_body && $line <= $line_main_hello } {
69 pass "next-instruction at main"
71 fail "next-instruction at main"
75 fail "next-instruction at main (timeout)"
78 send_gdb "333-exec-next-instruction\n"
80 -re "333\\^running\r\n${mi_gdb_prompt}333\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"main\",args=\\\[\\\],file=\".*basics.c\",fullname=\"${fullname_syntax}${srcfile}\",line=\"(\[0-9\]+)\"\}\r\n$mi_gdb_prompt$" {
81 set line $expect_out(2,string)
82 if { $line >= $line_main_body && $line <= $line_main_hello } {
83 pass "next-instruction at main"
85 fail "next-instruction at main"
89 fail "next-instruction at main (timeout)"