]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - gdb/testsuite/gdb.server/server-mon.exp
* config/gdbserver.exp (gdbserver_gdb_load): Update argument list.
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.server / server-mon.exp
1 # This testcase is part of GDB, the GNU debugger.
2
3 # Copyright 2007 Free Software Foundation, Inc.
4
5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 2 of the License, or
8 # (at your option) any later version.
9 #
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
14 #
15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18
19 # Test gdbserver monitor commands.
20
21 load_lib gdbserver-support.exp
22
23 set testfile "server"
24 set srcfile ${testfile}.c
25 set binfile ${objdir}/${subdir}/${testfile}
26
27 if { [skip_gdbserver_tests] } {
28 return 0
29 }
30
31 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
32 return -1
33 }
34
35 gdb_exit
36 gdb_start
37 gdb_load $binfile
38 gdb_reinitialize_dir $srcdir/$subdir
39
40 gdbserver_run ""
41
42 gdb_test_multiple "monitor help" "" {
43 -re "Unknown monitor command.*$gdb_prompt $" {
44 fail "monitor help"
45 }
46 -re "The following monitor commands.*$gdb_prompt $" {
47 pass "monitor help"
48 }
49 }
50
51 gdb_test "monitor" "Unknown monitor command.*Protocol error.*"
52
53 gdb_test "monitor set debug 1" "Debug output enabled\\."
54 gdb_test "monitor set debug 0" "Debug output disabled\\."
55 gdb_test "monitor set remote-debug 1" "Protocol debug output enabled\\."
56 gdb_test "monitor set remote-debug 0" "Protocol debug output disabled\\."