1# Copyright 2015 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 16load_lib "pascal.exp" 17 18standard_testfile .pas 19 20if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug class]] != "" } { 21 untested $testfile.exp 22 return -1 23} 24 25clean_restart ${testfile} 26set bp_location [gdb_get_line_number "set breakpoint here"] 27 28if { ![runto ${srcfile}:${bp_location}] } { 29 return 0 30} 31 32# We are now inside CHECK method. 33gdb_test "p X" " = 67" 34gdb_test "p B.X" " = 11" 35gdb_test "p Y" " = 33" 36gdb_test "p B.Y" " = 35" 37# As A is global, we can also check its value. 38gdb_test "p A.X" " = 67" 39gdb_test "p A.Y" " = 33" 40# Now test lowercase version. 41gdb_test "p x" " = 67" 42gdb_test "p y" " = 33" 43gdb_test "p B.x" " = 11" 44gdb_test "p B.y" " = 35" 45# As A is global, we can also check its value, with lowercase. 46gdb_test "p A.x" " = 67" 47gdb_test "p A.y" " = 33" 48# Also test lowercase class names. 49gdb_test "p b.X" " = 11" 50gdb_test "p b.x" " = 11" 51gdb_test "p b.Y" " = 35" 52gdb_test "p b.y" " = 35" 53gdb_test "p a.X" " = 67" 54gdb_test "p a.x" " = 67" 55gdb_test "p a.Y" " = 33" 56gdb_test "p a.y" " = 33" 57 58gdb_exit 59