gdb/testsuite/
[binutils-gdb.git] / gdb / testsuite / gdb.base / async-shell.exp
1 # Copyright (C) 2011 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 set testfile async-shell
17
18 if { ![support_displaced_stepping] } {
19 unsupported "displaced stepping"
20 return -1
21 }
22
23 # The testfile uses "run". The real bug happened only for ![is_remote target].
24 if [target_info exists use_gdb_stub] {
25 return 0
26 }
27
28 if { [prepare_for_testing ${testfile}.exp ${testfile}] } {
29 return -1
30 }
31
32 gdb_test_no_output "set target-async on "
33 gdb_test_no_output "set non-stop on"
34 gdb_test "run &" "Starting program: \[^\r\n\]*"
35
36 # `sleep 5' here would workaround the bug, do not sleep here.
37 # "shell" could eat waitpid event from the asynchronous inferior process.
38
39 gdb_test "shell echo foo" "foo"
40
41 set test "interrupt"
42 gdb_test_multiple $test $test {
43 -re "interrupt\r\n$gdb_prompt " {
44 pass $test
45 }
46 }
47
48 set test "process stopped"
49 gdb_test_multiple "" $test {
50 -re "\r\n\\\[process \[0-9\]+\\\] #1 stopped\\\.\r\n" {
51 pass $test
52 }
53 }