Commit | Line | Data |
---|---|---|
b811d2c2 | 1 | # Copyright 2016-2020 Free Software Foundation, Inc. |
ac69f786 PA |
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 | standard_testfile | |
17 | ||
18 | set compile_options "debug" | |
19 | if {[build_executable $testfile.exp $testfile ${srcfile} ${compile_options}] == -1} { | |
84c93cd5 | 20 | untested "failed to compile" |
ac69f786 PA |
21 | return -1 |
22 | } | |
23 | ||
24 | # Ensure no output has been sent. Use MESSAGE as test message. | |
25 | ||
26 | proc ensure_no_output {message} { | |
27 | global decimal | |
28 | ||
29 | # Run a command and use an anchor to make sure no output appears | |
30 | # before the command's expected output. | |
31 | gdb_test "print 999" "^print 999\r\n\\\$$decimal = 999" $message | |
32 | } | |
33 | ||
34 | # Run a few execution-related commands on CON1, and ensure the proper | |
35 | # output, or none, if appropriate, is sent to CON2. CON1_NAME and | |
36 | # CON2_NAME are the names of the consoles. | |
37 | ||
38 | proc do_execution_tests {con1 con1_name con2 con2_name} { | |
39 | global srcfile | |
40 | global decimal | |
41 | ||
42 | set bp_lineno [gdb_get_line_number "set break $con1_name here"] | |
43 | ||
44 | with_spawn_id $con1 { | |
45 | gdb_test "next" "global = 1;" | |
46 | } | |
47 | with_spawn_id $con2 { | |
48 | ensure_no_output "next causes no spurious output on other console" | |
49 | } | |
50 | ||
51 | with_spawn_id $con1 { | |
52 | gdb_test "break $srcfile:$bp_lineno" \ | |
53 | "Breakpoint $decimal .*$srcfile, line $bp_lineno\\." \ | |
54 | "set breakpoint" | |
55 | } | |
56 | with_spawn_id $con2 { | |
57 | ensure_no_output "break causes no spurious output on other console" | |
58 | } | |
59 | ||
60 | with_spawn_id $con1 { | |
61 | gdb_test "continue" "set break $con1_name here .*" "continue to breakpoint" | |
62 | } | |
63 | ||
64 | with_spawn_id $con2 { | |
65 | set test "breakpoint hit reported on other console" | |
66 | gdb_test_multiple "" $test { | |
67 | -re "Breakpoint $decimal, .* set break $con1_name here " { | |
68 | pass $test | |
69 | } | |
70 | } | |
71 | } | |
72 | } | |
73 | ||
74 | # The test proper. | |
75 | ||
b761ca9e | 76 | proc_with_prefix do_test {} { |
ac69f786 PA |
77 | global srcfile testfile |
78 | global gdb_prompt | |
79 | global gdb_spawn_id | |
80 | global gdb_main_spawn_id extra_spawn_id | |
81 | ||
82 | clean_restart $testfile | |
83 | ||
84 | if ![runto_main] { | |
85 | untested "could not run to main" | |
86 | return -1 | |
87 | } | |
88 | ||
89 | gdb_test "new-ui" \ | |
65e65158 | 90 | "Usage: new-ui INTERPRETER TTY" \ |
ac69f786 PA |
91 | "new-ui without arguments" |
92 | ||
93 | set test "new-ui does not repeat" | |
94 | send_gdb "\n" | |
95 | gdb_test_multiple "" $test { | |
96 | -re "^\r\n$gdb_prompt $" { | |
97 | pass $test | |
98 | } | |
99 | } | |
100 | ||
101 | # Save the main UI's spawn ID. | |
102 | set gdb_main_spawn_id $gdb_spawn_id | |
103 | ||
104 | # Create the new PTY for the secondary console UI. | |
105 | spawn -pty | |
106 | set extra_spawn_id $spawn_id | |
107 | set extra_tty_name $spawn_out(slave,name) | |
108 | gdb_test_multiple "new-ui console $extra_tty_name" "new-ui" { | |
109 | -re "New UI allocated\r\n$gdb_prompt $" { | |
110 | } | |
111 | } | |
112 | ||
113 | with_spawn_id $extra_spawn_id { | |
114 | set test "initial prompt on extra console" | |
115 | gdb_test_multiple "" $test { | |
116 | -re "$gdb_prompt $" { | |
117 | pass $test | |
118 | } | |
119 | } | |
120 | } | |
121 | ||
122 | # Ensure non-execution commands in one console don't cause output | |
123 | # in the other consoles. | |
124 | with_spawn_id $gdb_main_spawn_id { | |
125 | gdb_test "print 1" "^print 1\r\n\\\$1 = 1" "print on main console" | |
126 | } | |
127 | with_spawn_id $extra_spawn_id { | |
128 | gdb_test "print 2" "^print 2\r\n\\\$2 = 2" "print on extra console" | |
129 | } | |
130 | ||
26a06916 SM |
131 | # Verify that we get proper queries on the main UI, but that they are |
132 | # auto-answered on secondary UIs. | |
133 | with_spawn_id $gdb_main_spawn_id { | |
134 | gdb_test "delete" "" "delete all breakpoint on main console" \ | |
135 | "Delete all breakpoints. .y or n. $" "n" | |
136 | } | |
137 | with_spawn_id $extra_spawn_id { | |
792ccf00 PA |
138 | # Check output in two stages in order to override |
139 | # gdb_test_multiple's internal "got interactive prompt" fail | |
140 | # that would otherwise match if the expect buffer happens to | |
141 | # fill with partial output that ends in "(y or n) ". | |
142 | set test "delete all breakpoints on extra console" | |
143 | gdb_test_multiple "delete" $test { | |
144 | -re "Delete all breakpoints. .y or n. " { | |
145 | gdb_test "" \ | |
146 | ".answered Y; input not from terminal." \ | |
147 | $test | |
148 | } | |
149 | } | |
26a06916 SM |
150 | } |
151 | ||
ac69f786 PA |
152 | # Run a few execution tests with the main console as the driver |
153 | # console. | |
154 | with_test_prefix "main console" { | |
155 | do_execution_tests \ | |
156 | $gdb_main_spawn_id "main console" \ | |
157 | $extra_spawn_id "extra console" | |
158 | } | |
159 | # Same, but with the extra console as driver. | |
160 | with_test_prefix "extra console" { | |
161 | do_execution_tests \ | |
162 | $extra_spawn_id "extra console" \ | |
163 | $gdb_main_spawn_id "main console" | |
164 | } | |
165 | } | |
166 | ||
8194e927 SM |
167 | # Test missing / invalid arguments. |
168 | ||
b761ca9e | 169 | proc_with_prefix do_test_invalid_args {} { |
8194e927 SM |
170 | global testfile |
171 | ||
172 | clean_restart $testfile | |
173 | ||
174 | spawn -pty | |
175 | set extra_tty_name $spawn_out(slave,name) | |
176 | ||
177 | # Test bad terminal path. | |
178 | gdb_test "new-ui console /non/existent/path" \ | |
179 | "opening terminal failed: No such file or directory\." \ | |
180 | "new-ui with bad terminal path" | |
181 | ||
182 | # Test bad interpreter name. | |
183 | gdb_test "new-ui bloop $extra_tty_name" \ | |
184 | "Interpreter `bloop' unrecognized" \ | |
185 | "new-ui with bad interpreter name" | |
186 | ||
187 | # Test that we can continue working normally. | |
188 | if ![runto_main] { | |
189 | fail "could not run to main" | |
190 | } | |
191 | } | |
192 | ||
b761ca9e SM |
193 | do_test |
194 | do_test_invalid_args |