1# Copyright 1988, 1990, 1991, 1992, 1994, 1995, 1996, 1997, 1999, 2007 2# Free Software Foundation, Inc. 3 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. 8# 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. 13# 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/>. 16 17# Please email any bugs, comments, and/or additions to this file to: 18# bug-gdb@prep.ai.mit.edu 19 20# This file was written by Rob Savoye. (rob@cygnus.com) 21 22if $tracelevel then { 23 strace $tracelevel 24} 25 26# Don't try this for remote targets. 27if [is_remote target] then { 28 continue 29} 30 31if [target_info exists noargs] then { 32 verbose "Skipping term.exp because of noargs." 33 return 34} 35 36gdb_start 37 38# 39# test running programs 40# 41set prms_id 0 42set bug_id 0 43 44set testfile "run" 45set srcfile ${testfile}.c 46set binfile ${objdir}/${subdir}/${testfile} 47if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 48 untested term.exp 49 return -1 50} 51 52gdb_exit 53gdb_start 54delete_breakpoints 55gdb_reinitialize_dir $srcdir/$subdir 56gdb_load ${binfile} 57 58gdb_test "set print sevenbit-strings" "" "test set print sevenbit-strings" 59gdb_test "set print address off" "" "test set print address off" 60gdb_test "set width 0" "" "test set width 0" 61gdb_test "info terminal" "No saved terminal information.*" "test info terminal" 62gdb_run_cmd 5 63gdb_expect { 64 -re ".*120.*Program exited normally.*$gdb_prompt $" { 65 gdb_test "info terminal" "No saved terminal information.*" "test info terminal #2" 66 } 67 default { 68 fail "term.exp, factorial didn't run to completion for info terminal" 69 } 70} 71 72# In mid-execution 73gdb_breakpoint main 74gdb_run_cmd 5 75gdb_expect { 76 -re ".*Breakpoint \[0-9\]+,.*main.*if .argc != 2.*$gdb_prompt $" { 77 gdb_test "info terminal" "Inferior's terminal status .currently saved by GDB.:.*" "info terminal at breakpoint" 78 } 79 -re ".*$gdb_prompt $" { fail "info terminal at breakpoint" } 80 timeout { fail "(timeout) info terminal at breakpoint" } 81} 82