xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.btrace/rn-dl-bind.exp (revision 2718af68c3efc72c9769069b5c7f9ed36f6b9def)
1# This testcase is part of GDB, the GNU debugger.
2#
3# Copyright 2013-2019 Free Software Foundation, Inc.
4#
5# Contributed by Intel Corp. <markus.t.metzger@intel.com>
6#
7# This program is free software; you can redistribute it and/or modify
8# it under the terms of the GNU General Public License as published by
9# the Free Software Foundation; either version 3 of the License, or
10# (at your option) any later version.
11#
12# This program is distributed in the hope that it will be useful,
13# but WITHOUT ANY WARRANTY; without even the implied warranty of
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15# GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License
18# along with this program.  If not, see <http://www.gnu.org/licenses/>.
19#
20#
21# Test that we can reverse-next over the dynamic linker's symbol
22# lookup code.
23
24if { [skip_btrace_tests] } {
25    unsupported "target does not support record-btrace"
26    return -1
27}
28
29standard_testfile
30if [prepare_for_testing "failed to prepare" $testfile $srcfile {c++ debug}] {
31    return -1
32}
33
34if ![runto_main] {
35    untested "failed to run to main"
36    return -1
37}
38
39# trace the code for the call to test
40gdb_test_no_output "record btrace"
41gdb_test "next" ".*main\.2.*"
42
43# just dump the function-call-history to help debugging
44gdb_test_no_output "set record function-call-history-size 0"
45gdb_test "record function-call-history /cli 1" ".*"
46
47# check that we can reverse-next and next
48gdb_test "reverse-next" ".*main\.1.*"
49gdb_test "next" ".*main\.2.*"
50
51# now go into test and try to reverse-next and next over the library call
52gdb_test "reverse-step" ".*test\.3.*"
53gdb_test "reverse-step" ".*test\.2.*"
54gdb_test "reverse-next" ".*test\.1.*"
55gdb_test "next" ".*test\.2.*"
56