This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
Re: [PATCH] Testsuite: Add gdbserver sysroot test
> On 11 Apr 2019, at 17:11, Pedro Alves <palves@redhat.com> wrote:
>
> On 4/10/19 1:10 PM, Alan Hayward wrote:
>
>>> Fix for that posted:
>>> https://sourceware.org/ml/gdb-patches/2019-04/msg00141.html
>>
>> Excellent. I would give it a review, but don’t know anything in that area.
>
> Review is often an excellent way to learn about new areas. :-)
True :)
>
>>>
>>> Hit M-q in your emacs here.
>>
>> Done (assuming you just meant to wrap before column 80).
>
> Right.
>>> Use clean_restart, and add period:
>>>
>>> # Restart GDB.
>>> clean_restart
>>
>> This was intentional to avoid the “file” command at the end of clean_restart.
>
> The "file" command at the end is only run if you pass an argument to clean_restart.
>
> if { [llength $args] >= 1 } {
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> set executable [lindex $args 0]
> set binfile [standard_output_file ${executable}]
> gdb_load ${binfile}
> }
Yes! Done.
> Please do add the all-important period. :-)
And done.
>
>> +
>> + # Set the sysroot.
>> + gdb_test_no_output "set sysroot $sysroot_command"
>> +
>> + # Connect to gdbsever, making sure GDB reads in the binary correctly.
>
> type: “gdbsever"
Done.
>
>> + set test "connect to remote and read binary"
>
>>
>> #
>> # gdb_target_cmd
>> -# Send gdb the "target" command
>> +# Send gdb the "target" command. Returns 0 on success, 1 on failure.
>
> Double space after period.
>
Done.
>> +# If specified, then additional_text must match the text which must comes after
>
> Uppercase ADDITIONAL_TEXT.
>
> s/which must comes/that comes/ ?
Done.
>
>> +# the connection message in order for procedure to succeed.
>
> s/for procedure/for the procedure/.
Done.
>
> OK with the issues mentioned above fixed.
>
> Thanks,
> Pedro Alves
Pushed the following:
diff --git a/gdb/testsuite/gdb.server/sysroot.c b/gdb/testsuite/gdb.server/sysroot.c
new file mode 100644
index 0000000000..7db1a138d1
--- /dev/null
+++ b/gdb/testsuite/gdb.server/sysroot.c
@@ -0,0 +1,25 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+ Copyright 2019 Free Software Foundation, Inc.
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include <stdio.h>
+
+int
+main ()
+{
+ printf ("Hello World!\n");
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.server/sysroot.exp b/gdb/testsuite/gdb.server/sysroot.exp
new file mode 100644
index 0000000000..4b95fdf087
--- /dev/null
+++ b/gdb/testsuite/gdb.server/sysroot.exp
@@ -0,0 +1,77 @@
+# This testcase is part of GDB, the GNU debugger.
+#
+# Copyright 2019 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+# Test that GDB can correctly read the binary and shared libraries
+# with different sysroot setups: local and "target:".
+
+load_lib gdbserver-support.exp
+
+if { [skip_gdbserver_tests] } {
+ verbose "skipping gdbserver tests"
+ return -1
+}
+
+standard_testfile
+if {[build_executable "failed to prepare" $testfile $srcfile "additional_flags=--no-builtin"] == -1} {
+ return -1
+}
+
+# Run once with sysroot set to the local filesystem and once set to the remote
+# target.
+foreach_with_prefix sysroot { "local" "remote" } {
+ global srcdir
+ global subdir
+ global binfile
+
+ if { $sysroot == "local" } {
+ set sysroot_command "/"
+ set reading_symbols "Reading symbols from $binfile..."
+ } else {
+ set sysroot_command "target:"
+ set reading_symbols "Reading $binfile from remote target..."
+ }
+
+ # Restart GDB.
+ clean_restart
+
+ # Make sure we're disconnected, in case we're testing with an
+ # extended-remote board, therefore already connected.
+ gdb_test "disconnect" ".*"
+
+ # Start GDBserver.
+ set res [gdbserver_start "" $binfile]
+ set gdbserver_protocol [lindex $res 0]
+ set gdbserver_gdbport [lindex $res 1]
+
+ # Set the sysroot.
+ gdb_test_no_output "set sysroot $sysroot_command"
+
+ # Connect to gdbserver, making sure GDB reads in the binary correctly.
+ set test "connect to remote and read binary"
+ if {[gdb_target_cmd $gdbserver_protocol $gdbserver_gdbport $reading_symbols] == 0} {
+ pass $test
+ } else {
+ fail $test
+ }
+
+ gdb_breakpoint main
+ gdb_test "continue" "Breakpoint $decimal.* main.*" "continue to main"
+
+ # Test that we can stop inside a library.
+ gdb_breakpoint printf
+ gdb_test "continue" "Breakpoint $decimal.* printf .*" "continue to printf"
+}
diff --git a/gdb/testsuite/lib/gdbserver-support.exp b/gdb/testsuite/lib/gdbserver-support.exp
index dbd885aa22..2cb64f7d2f 100644
--- a/gdb/testsuite/lib/gdbserver-support.exp
+++ b/gdb/testsuite/lib/gdbserver-support.exp
@@ -42,9 +42,11 @@
#
# gdb_target_cmd
-# Send gdb the "target" command
+# Send gdb the "target" command. Returns 0 on success, 1 on failure.
+# If specified, then ADDITIONAL_TEXT must match the text that comes after
+# the connection message in order for the procedure to succeed.
#
-proc gdb_target_cmd { targetname serialport } {
+proc gdb_target_cmd { targetname serialport {additional_text ""} } {
global gdb_prompt
set serialport_re [string_to_regexp $serialport]
@@ -61,23 +63,23 @@ proc gdb_target_cmd { targetname serialport } {
-re "Couldn't establish connection to remote.*$gdb_prompt $" {
verbose "Connection failed"
}
- -re "Remote MIPS debugging.*$gdb_prompt" {
+ -re "Remote MIPS debugging.*$additional_text.*$gdb_prompt" {
verbose "Set target to $targetname"
return 0
}
- -re "Remote debugging using .*$serialport_re.*$gdb_prompt $" {
+ -re "Remote debugging using .*$serialport_re.*$additional_text.*$gdb_prompt $" {
verbose "Set target to $targetname"
return 0
}
- -re "Remote debugging using stdio.*$gdb_prompt $" {
+ -re "Remote debugging using stdio.*$additional_text.*$gdb_prompt $" {
verbose "Set target to $targetname"
return 0
}
- -re "Remote target $targetname connected to.*$gdb_prompt $" {
+ -re "Remote target $targetname connected to.*$additional_text.*$gdb_prompt $" {
verbose "Set target to $targetname"
return 0
}
- -re "Connected to.*$gdb_prompt $" {
+ -re "Connected to.*$additional_text.*$gdb_prompt $" {
verbose "Set target to $targetname"
return 0
}