]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.server/server-connect.exp
Update copyright year range in all GDB files.
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.server / server-connect.exp
CommitLineData
c7ab0aef
SDJ
1# This testcase is part of GDB, the GNU debugger.
2#
42a4f53d 3# Copyright 2018-2019 Free Software Foundation, Inc.
c7ab0aef
SDJ
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 3 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, see <http://www.gnu.org/licenses/>.
17
18# Test multiple types of connection (IPv4, IPv6, TCP, UDP) and make
19# sure both gdbserver and GDB work.
20
21load_lib gdbserver-support.exp
22
23standard_testfile normal.c
24
25if {[skip_gdbserver_tests]} {
26 return 0
27}
28
29# We want to have control over where we start gdbserver.
30if { [is_remote target] } {
31 return 0
32}
33
34if { [prepare_for_testing "failed to prepare" $testfile $srcfile debug] } {
35 return -1
36}
37
38# Make sure we're disconnected, in case we're testing with an
39# extended-remote board, therefore already connected.
40gdb_test "disconnect" ".*"
41
42set target_exec [gdbserver_download_current_prog]
43
44# An array containing the test instructions for each scenario. The
45# description of each field is as follows:
46#
47# - The connection specification to be used when starting
48# gdbserver/GDB. This string will be used to set the
49# GDB_TEST_SOCKETHOST when calling gdbserver_start.
50#
51# - A flag indicating whether gdbserver should fail when we attempt to
52# start it. Useful when testing erroneous connection specs such as
53# "tcp8:".
54#
55# - The prefix that should be prepended to the test messages.
56set test_params \
57 { \
58 { "tcp4:127.0.0.1" 0 "tcp4" } \
59 { "tcp6:::1" 0 "tcp6" } \
60 { "tcp6:[::1]" 0 "tcp6-with-brackets" } \
61 { "tcp:localhost" 0 "tcp" } \
62 { "udp4:127.0.0.1" 0 "udp4" } \
63 { "udp6:::1" 0 "udp6" } \
64 { "udp6:[::1]" 0 "udp6-with-brackets" } \
65 { "tcp8:123" 1 "tcp8" } \
66 { "udp123:::" 1 "udp123" } \
67 { "garbage:1234" 1 "garbage:1234" } \
68 }
69
70# The best way to test different types of connections is to set the
71# GDB_TEST_SOCKETHOST variable accordingly.
72save_vars { GDB_TEST_SOCKETHOST } {
73 foreach line $test_params {
74 set sockhost [lindex $line 0]
75 set gdbserver_should_fail [lindex $line 1]
76 set prefix [lindex $line 2]
77
78 with_test_prefix $prefix {
79 set GDB_TEST_SOCKETHOST $sockhost
80 set test "start gdbserver"
81
82 # Try to start gdbserver.
83 set catchres [catch {set res [gdbserver_start "" $target_exec]} errmsg]
84
85 if { $catchres != 0 } {
86 if { $gdbserver_should_fail } {
87 pass "$test: gdbserver failed as expected"
88 } else {
89 fail "$test: $errmsg"
90 }
91 continue
92 } else {
93 if { $gdbserver_should_fail } {
94 fail "$test: gdbserver should fail but did not"
95 } else {
96 pass "$test"
97 }
98 }
99
100 set gdbserver_protocol [lindex $res 0]
101 set gdbserver_gdbport [lindex $res 1]
102 set test "connect to gdbserver using $sockhost"
103
104 if { [gdb_target_cmd $gdbserver_protocol $gdbserver_gdbport] == 0 } {
105 pass $test
106 } else {
107 fail $test
108 }
109 }
110 }
111}