1# Copyright 2010-2019 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# Utilities for python-scripting related tests. 17 18# Run a command in GDB, and report a failure if a Python exception is thrown. 19# If report_pass is true, report a pass if no exception is thrown. 20 21proc gdb_py_test_silent_cmd { cmd name report_pass } { 22 global gdb_prompt 23 24 gdb_test_multiple $cmd $name { 25 -re "Traceback.*$gdb_prompt $" { fail $name } 26 -re "$gdb_prompt $" { if $report_pass { pass $name } } 27 } 28} 29 30# Usage: gdb_py_test_multiple NAME INPUT RESULT {INPUT RESULT}... 31# Run a test named NAME, consisting of multiple lines of input. 32# After each input line INPUT, search for result line RESULT. 33# Succeed if all results are seen; fail otherwise. 34 35proc gdb_py_test_multiple { name args } { 36 global gdb_prompt 37 foreach {input result} $args { 38 if {[gdb_test_multiple $input "$name - $input" { 39 -re "\[\r\n\]*($result)\[\r\n\]+($gdb_prompt | *>)$" { 40 pass "$name - $input" 41 } 42 }]} { 43 return 1 44 } 45 } 46 return 0 47} 48 49# Return the result of python expression EXPR. DEFAULT is returned if 50# there's an error. TEST is the test message to use. It can be 51# omitted, in which case a test message is built from EXP. This is 52# modeled after get_integer_valueof. 53 54proc get_python_valueof { exp default {test ""} } { 55 global gdb_prompt 56 57 if {$test == ""} { 58 set test "get python valueof \"${exp}\"" 59 } 60 61 set val ${default} 62 gdb_test_multiple "python print (\"valueof: %s\" % (${exp}))" "$test" { 63 -re "valueof: (\[^\r\n\]*)\[\r\n\]*$gdb_prompt $" { 64 set val $expect_out(1,string) 65 pass "$test" 66 } 67 timeout { 68 fail "$test (timeout)" 69 } 70 } 71 return ${val} 72} 73