]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.cp/pr-1023.exp
run copyright.sh for 2011.
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.cp / pr-1023.exp
CommitLineData
7b6bb8da 1# Copyright 2003, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
5af1d5f3
MC
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
5af1d5f3 6# (at your option) any later version.
e22f8b7c 7#
5af1d5f3
MC
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#
5af1d5f3 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/>.
5af1d5f3
MC
15
16# Tests for PR gdb/1023.
17# 2003-02-03 Michael Chastain <mec@shout.net>
18
19# This file is part of the gdb testsuite.
20
21if $tracelevel then {
22 strace $tracelevel
23 }
24
25if { [skip_cplus_tests] } { continue }
26
27#
28# test running programs
29#
5af1d5f3
MC
30
31set testfile "pr-1023"
32set srcfile ${testfile}.cc
33set binfile ${objdir}/${subdir}/${testfile}
34
35if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
b60f0898
JB
36 untested pr-1023.exp
37 return -1
5af1d5f3
MC
38}
39
40if [get_compiler_info ${binfile} "c++"] {
41 return -1
42}
43
44gdb_exit
45gdb_start
46gdb_reinitialize_dir $srcdir/$subdir
47gdb_load ${binfile}
48
49if ![runto_main] then {
50 perror "couldn't run to breakpoint"
51 continue
52}
53
f8d3bf8f 54gdb_test_multiple "break myClass::performBlocking" "break myClass::performBlocking" {
5af1d5f3
MC
55 -re "Breakpoint $decimal at $hex: file .*$srcfile, line 12.*$gdb_prompt $" {
56 pass "break myClass::performBlocking"
57 }
58 -re "the class myClass does not have any method named performBlocking.*$gdb_prompt $" {
59 # fails with gcc 2.95.3 -gstabs+, native i686-pc-linux-gnu
60 # -- chastain 2003-02-03
61 kfail "gdb/1023" "break myClass::performBlocking"
62 }
5af1d5f3
MC
63}
64
65gdb_test \
66 "break myClass::performUnblocking" \
67 "Breakpoint $decimal at $hex: file .*$srcfile, line 10.*"
68
69gdb_exit
70return 0