m-data.exp revision 1.10
1# Copyright 2002-2023 Free Software Foundation, Inc. 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 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 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. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# Tests for member data 17# 2002-05-13 Benjamin Kosnik <bkoz@redhat.com> 18 19# This file is part of the gdb testsuite 20 21if { [skip_cplus_tests] } { return } 22 23# 24# test running programs 25# 26 27standard_testfile .cc 28 29if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} { 30 return -1 31} 32 33if {![runto_main]} { 34 return 35} 36 37# First, run to after we've constructed all the gnu_obj_N's: 38 39gdb_breakpoint [gdb_get_line_number "first-constructs-done"] 40gdb_continue_to_breakpoint "end of first constructors" 41 42# One. 43 44# simple object, const bool 45gdb_test "print test1.test" "\\$\[0-9\]* = true" "simple object, const bool" 46 47# simple object, const int 48gdb_test "print test1.key1" "\\$\[0-9\]* = 5" "simple object, const int" 49 50# simple object, long 51gdb_test "print test1.key2" "\\$\[0-9\]* = 4589" "simple object, long" 52 53# simple object, enum 54gdb_test "print test1.value" "\\$\[0-9\]* = egyptian" "simple object, enum" 55 56# Two. 57 58# derived template object, base const bool 59gdb_test "print test2.test" "\\$\[0-9\]* = true" "derived template object, base const bool" 60 61# derived template object, base const int 62gdb_test "print test2.key1" "\\$\[0-9\]* = 5" "derived template object, base const int" 63 64# derived template object, base long 65gdb_test "print test2.key2" "\\$\[0-9\]* = 7" "derived template object, base long" 66 67# derived template object, base enum 68gdb_test "print test2.value" "\\$\[0-9\]* = oriental" "derived template object, base enum" 69 70# derived template object, enum 71gdb_test "print test2.value_derived" "\\$\[0-9\]* = roman" "derived template object, derived enum" 72 73# Three. 74 75# template object, derived template data member's base const bool 76gdb_test "print test3.data.test" "\\$\[0-9\]* = true" "template object, const bool" 77 78# template object, derived template data member's base const int 79gdb_test "print test3.data.key1" "\\$\[0-9\]* = 5" "template object, const int" 80 81# template object, derived template data member's base long 82gdb_test "print test3.data.key2" "\\$\[0-9\]* = 7" "template object, long" 83 84# template object, derived template data member's base enum 85gdb_test "print test3.data.value" "\\$\[0-9\]* = oriental" "template object, base enum" 86 87# template object, derived template data member's enum 88gdb_test "print test3.data.value_derived" "\\$\[0-9]\* = etruscan" "template object, derived enum" 89 90# Now some tests for shadowing (see PR gdb/804): 91 92gdb_breakpoint "C::marker" 93gdb_continue_to_breakpoint "continue to shadow breakpoint" 94 95gdb_test "print shadow" "\\$\[0-9]\* = 1" "shadowing member" 96gdb_test "print ::shadow" "\\$\[0-9]\* = 0" "shadowed global variable" 97 98gdb_exit 99return 0 100