1# Copyright (C) 2012-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# This file is part of the GDB testsuite. It tests the convenience 17# functions in strfns.py. 18 19load_lib gdb-python.exp 20 21standard_testfile 22 23if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } { 24 return -1 25} 26 27if ![runto_main] { 28 return 0 29} 30 31# Skip all tests if Python scripting is not enabled. 32if { [skip_python_tests] } { continue } 33 34proc test_all_strfns { } { 35 gdb_test "p \$_streq (str1, str2)" " = 1" 36 gdb_test "p \$_streq (str1, str3)" " = 0" 37 38 gdb_test "p \$_strlen (str1)" " = 6" 39 gdb_test "p \$_strlen (buf1)" " = 0" 40 41 gdb_test "p \$_memeq (buf1, buf2, 4)" " = 1" 42 gdb_test "p \$_memeq (buf1, buf3, 4)" " = 0" 43 44 gdb_test {p $_regex (str1, "Hello")} " = 1" 45 gdb_test {p $_regex (str1, "Help")} " = 0" 46 gdb_test {p $_regex (str1, "^Hello")} " = 1" 47 gdb_test {p $_regex (str1, "^Hello.$")} " = 1" 48} 49 50test_all_strfns 51 52# Verify use in a conditional breakpoint. 53 54gdb_breakpoint [gdb_get_line_number "Break func here."] 55gdb_test_no_output "condition \$bpnum \$_streq (arg, \"Goodbye.\")" 56gdb_continue_to_breakpoint "Break func here." 57gdb_test "p arg" "= $hex <str3> \"Goodbye.\"" 58 59gdb_breakpoint [gdb_get_line_number "Break bfunc here."] 60gdb_test_no_output "condition \$bpnum \$_memeq (arg, buf3, 4)" 61gdb_continue_to_breakpoint "Break bfunc here." 62gdb_test "p /d {char\[4\]} arg" "= \\{0, 1, 2, 4\\}" 63 64# Verify use on a core file. 65 66proc test_strfns_core_file { } { 67 global gdb_prompt testfile 68 69 set filename [standard_output_file py-strfns.core] 70 71 if {![gdb_gcore_cmd "$filename" "save a corefile"]} { 72 # No use proceeding from here. 73 return 74 } 75 76 clean_restart $testfile 77 78 gdb_test_multiple "core $filename" \ 79 "re-load generated corefile" \ 80 { 81 -re "Core was generated by .*$gdb_prompt $" { 82 pass "re-load generated corefile" 83 } 84 -re ".*$gdb_prompt $" { 85 fail "re-load generated corefile" 86 # No use proceeding from here. 87 return 88 } 89 } 90 91 with_test_prefix "for corefile" { 92 test_all_strfns 93 } 94} 95 96test_strfns_core_file 97