# Copyright 2010 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # Utilities for python-scripting related tests. # Run a command in GDB, and report a failure if a Python exception is thrown. # If report_pass is true, report a pass if no exception is thrown. proc gdb_py_test_silent_cmd { cmd name report_pass } { global gdb_prompt gdb_test_multiple $cmd $name { -re "Traceback.*$gdb_prompt $" { fail $name } -re "$gdb_prompt $" { if $report_pass { pass $name } } } } # Usage: gdb_py_test_multiple NAME INPUT RESULT {INPUT RESULT}... # Run a test named NAME, consisting of multiple lines of input. # After each input line INPUT, search for result line RESULT. # Succeed if all results are seen; fail otherwise. proc gdb_py_test_multiple { name args } { global gdb_prompt foreach {input result} $args { if {[gdb_test_multiple $input "$name - $input" { -re "\[\r\n\]*($result)\[\r\n\]+($gdb_prompt | *>)$" { pass "$name - $input" } }]} { return 1 } } return 0 }