1 # Copyright (C) 2013-2016 Free Software Foundation, Inc.
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.
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.
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/>.
16 if [is_remote target] then {
17 # Testing with remote/non-stop is racy at the moment.
18 unsupported "testing dprintf with remote/non-stop is not supported."
23 set executable ${testfile}
25 if [build_executable "failed to prepare for dprintf with non-stop" \
26 ${testfile} ${srcfile} {debug}] {
30 save_vars { GDBFLAGS } {
31 append GDBFLAGS " -ex \"set non-stop on\""
32 clean_restart ${executable}
36 fail "can't run to main"
40 gdb_test "dprintf foo,\"At foo entry\\n\"" "Dprintf .*"
42 gdb_test "continue &" "Continuing\\."
44 # Wait for the dprintf to trigger.
45 set test "dprintf triggered"
51 fail "$test (timeout)"
55 # Now test that we're still able to issue commands. GDB used to
56 # implement re-resuming from dprintfs with a synchronous "continue" in
57 # the dprintf's command list, which stole the prompt from the user.
59 gdb_test_multiple $test $test {
60 -re "interrupt\r\n$gdb_prompt " {
65 set test "inferior stopped"
66 gdb_test_multiple "" $test {
67 -re "Program stopped\\\.\r\n" {