1# Copyright (C) 2014-2020 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# A collection of tests related to running execution commands directly
17# from the command line, with "-ex".
18
19standard_testfile
20
21if {[build_executable "failed to prepare" $testfile $srcfile debug] == -1} {
22    return -1
23}
24
25# Test paginating while printing about the inferior having exited.
26#
27proc test_paginate_inferior_exited {} {
28    global binfile
29    global gdb_prompt pagination_prompt
30    global inferior_exited_re
31
32    with_test_prefix "paginate" {
33	clean_restart $binfile
34
35	if ![runto_main] then {
36	    fail "can't run to main"
37	    return 0
38	}
39
40	# Force pagination.
41	gdb_test_no_output "set height 2"
42
43	set test "continue to pagination"
44
45	# Wait for the "Starting program" line, indicating the program
46	# is running.
47	set saw_starting 0
48	gdb_test_multiple "continue" $test {
49	    -re "$pagination_prompt" {
50		if {$saw_starting} {
51		    pass $test
52		} else {
53		    send_gdb "\n"
54		    exp_continue
55		}
56	    }
57	    -re "Continuing" {
58		set saw_starting 1
59		exp_continue
60	    }
61	}
62
63	# We're now stopped in a pagination output while handling a
64	# target event, trying to print about the program exiting.
65	set test "inferior exits normally"
66
67	send_gdb "\n"
68	gdb_test_multiple "" $test {
69	    -re "$inferior_exited_re normally.*$gdb_prompt $" {
70		pass $test
71	    }
72	}
73
74	gdb_test "p 1" " = 1" "GDB accepts further input"
75
76	# In case the board file wants to send further commands.
77	gdb_test_no_output "set height unlimited"
78    }
79}
80
81test_paginate_inferior_exited
82