1# Copyright (C) 2016-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# Test method calls. 17 18load_lib rust-support.exp 19if {[skip_rust_tests]} { 20 return 21} 22 23standard_testfile .rs 24if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug rust}]} { 25 return -1 26} 27 28set line [gdb_get_line_number "set breakpoint 1 here"] 29if {![runto ${srcfile}:$line]} { 30 untested "could not run to breakpoint" 31 return -1 32} 33 34gdb_test "print x" " = methods::HasMethods \\{value: 0\\}" 35 36gdb_test "print methods::HasMethods{value: 73}" \ 37 " = methods::HasMethods \\{value: 73\\}" 38gdb_test "print methods::HasMethods{..x}" \ 39 " = methods::HasMethods \\{value: 0\\}" 40gdb_test "print methods::HasMethods{value:19, ..x}" \ 41 " = methods::HasMethods \\{value: 19\\}" 42 43gdb_test "print x.take()" " = methods::HasMethods \\{value: 0\\}" 44gdb_test "print *(x.incr())" " = methods::HasMethods \\{value: 1\\}" 45gdb_test "print *((&mut x).incr())" " = methods::HasMethods \\{value: 2\\}" 46 47gdb_test "print a.value()" " = 23" 48gdb_test "print (&mut a).value()" " = 23" 49# gdb_test "print a.take_value().0" " = 23" 50gdb_test "print b.value()" " = 24" 51 52gdb_test "print c.value()" " = 452" 53 54set line [gdb_get_line_number "set breakpoint 2 here"] 55gdb_breakpoint ${srcfile}:$line 56gdb_continue_to_breakpoint "second breakpoint" 57 58gdb_test "print *self" " = 23" 59 60 61gdb_test "info functions HasMethods::new" \ 62 "fn methods::HasMethods::new\\(\\) -> methods::HasMethods;" 63 64