]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.cp/pr-1210.exp
Automatic Copyright Year update after running gdb/copyright.py
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.cp / pr-1210.exp
CommitLineData
4a94e368 1# Copyright 2003-2022 Free Software Foundation, Inc.
db5a5748
DJ
2
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
e22f8b7c 5# the Free Software Foundation; either version 3 of the License, or
db5a5748 6# (at your option) any later version.
e22f8b7c 7#
db5a5748
DJ
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.
e22f8b7c 12#
db5a5748 13# You should have received a copy of the GNU General Public License
e22f8b7c 14# along with this program. If not, see <http://www.gnu.org/licenses/>.
db5a5748
DJ
15
16# Tests for PR gdb/1210.
17
18# This file is part of the gdb testsuite.
19
db5a5748
DJ
20if { [skip_cplus_tests] } { continue }
21
22#
23# test running programs
24#
db5a5748 25
f5f3a911 26standard_testfile .cc
db5a5748 27
f5f3a911 28if [get_compiler_info "c++"] {
b60f0898 29 return -1
db5a5748
DJ
30}
31
5b362f04 32if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
db5a5748
DJ
33 return -1
34}
35
db5a5748
DJ
36if ![runto_main] then {
37 perror "couldn't run to breakpoint"
38 continue
39}
40
41gdb_test "next" ".*return 0;" "step past initialization"
42
dc226d5a 43gdb_test_multiple "print *obj" "print *obj" {
db5a5748
DJ
44 -re "Cannot access memory.*$gdb_prompt $" {
45 fail "print *obj"
46 }
47 -re " = {<A> = {<No data fields>}, myB = {<A> = {<No data fields>}.*}}\r\n$gdb_prompt $" {
48 pass "print *obj"
49 }
50}
51
dc226d5a 52gdb_test_multiple "print obj->myB" "print obj->myB" {
db5a5748
DJ
53 -re "Cannot access memory.*$gdb_prompt $" {
54 fail "print obj->myB"
55 }
56 -re " = {<A> = {<No data fields>}.*}\r\n$gdb_prompt $" {
57 pass "print obj->myB"
58 }
59}
60
61gdb_exit
62return 0