[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / term.exp

#   Copyright 1988-2017 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

if { [prepare_for_testing "failed to prepare" term term.c] } {
    return -1
}

# Once before running the program.
gdb_test "info terminal" \
    "No saved terminal information.*" \
    "test info terminal"

if ![runto_main] then {
    fail "can't run to main"
    return 0
}

# Once while the program is running and stopped.

# While only native targets save terminal status, we still test
# everywhere to make sure that the command doesn't misbehave.
if {[target_info gdb_protocol] == ""} {
    set term_re "Inferior's terminal status .currently saved by GDB.:.*"
} else {
    set term_re "No saved terminal information\\."
}

gdb_test "info terminal" $term_re "info terminal at breakpoint"

gdb_continue_to_end

# One last time after the program having exited.
gdb_test "info terminal" \
    "No saved terminal information.*" \
    "test info terminal #2"
Commit	Line	Data
	1	# Copyright 1988-2017 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	if { [prepare_for_testing "failed to prepare" term term.c] } {
	17	return -1
	18	}
	19
	20	# Once before running the program.
	21	gdb_test "info terminal" \
	22	"No saved terminal information.*" \
	23	"test info terminal"
	24
	25	if ![runto_main] then {
	26	fail "can't run to main"
	27	return 0
	28	}
	29
	30	# Once while the program is running and stopped.
	31
	32	# While only native targets save terminal status, we still test
	33	# everywhere to make sure that the command doesn't misbehave.
	34	if {[target_info gdb_protocol] == ""} {
	35	set term_re "Inferior's terminal status .currently saved by GDB.:.*"
	36	} else {
	37	set term_re "No saved terminal information\\."
	38	}
	39
	40	gdb_test "info terminal" $term_re "info terminal at breakpoint"
	41
	42	gdb_continue_to_end
	43
	44	# One last time after the program having exited.
	45	gdb_test "info terminal" \
	46	"No saved terminal information.*" \
	47	"test info terminal #2"