1# Copyright 1999, 2000, 2001, 2002, 2004 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 2 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, write to the Free Software 15# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 16 17# Test Machine interface (MI) operations 18# Verify that, using the MI, we can run a simple program and perform 19# exec-return. 20 21# The goal is not to 22# test gdb functionality, which is done by other tests, but to verify 23# the correct output response to MI operations. 24# 25 26load_lib mi-support.exp 27set MIFLAGS "-i=mi" 28 29gdb_exit 30if [mi_gdb_start] { 31 continue 32} 33 34set testfile "basics" 35set srcfile ${testfile}.c 36set binfile ${objdir}/${subdir}/${testfile} 37if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } { 38 gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." 39} 40 41mi_delete_breakpoints 42mi_gdb_reinitialize_dir $srcdir/$subdir 43mi_gdb_reinitialize_dir $srcdir/$subdir 44mi_gdb_load ${binfile} 45 46 47proc test_return_simple {} { 48 global mi_gdb_prompt 49 global hex 50 51 set line_callee3_head [gdb_get_line_number "callee3 ("] 52 set line_callee3_close_brace [expr $line_callee3_head + 3] 53 54 send_gdb "111-exec-return\n" 55 gdb_expect { 56 -re "111\\^done,frame=\{level=\"0\",addr=\"$hex\",func=\"callee3\",args=\\\[.*\\\],file=\".*basics.c\",line=\"$line_callee3_close_brace\"\}\r\n$mi_gdb_prompt$" {pass "return from callee4 now"} 57 -re ".*\r\n$mi_gdb_prompt$" { fail "return from callee4 now" } 58 timeout { fail "return from callee4 now (timeout)" 59 } 60 } 61} 62 63mi_runto callee4 64 65mi_gdb_test "205-break-delete" \ 66 "205\\^done.*" \ 67 "delete all breakpoints" 68 69test_return_simple 70 71mi_gdb_exit 72return 0 73