gcc/testsuite/ * lib/gcc-python.exp: New test library. * python/testutils.py: New Python helper. --- gcc/testsuite/lib/gcc-python.exp | 95 +++++++++++++++++++++++++++++++++++++++ gcc/testsuite/python/testutils.py | 45 +++++++++++++++++++ 2 files changed, 140 insertions(+) create mode 100644 gcc/testsuite/lib/gcc-python.exp create mode 100644 gcc/testsuite/python/testutils.py
diff --git a/gcc/testsuite/lib/gcc-python.exp b/gcc/testsuite/lib/gcc-python.exp new file mode 100644 index 00000000000..30cf74a87ac --- /dev/null +++ b/gcc/testsuite/lib/gcc-python.exp @@ -0,0 +1,95 @@ +# Copyright (C) 2017 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 GCC; see the file COPYING3. If not see +# <http://www.gnu.org/licenses/>. + +# Helpers to run a Python interpreter + +load_lib "remote.exp" + +# Return whether a working Python interpreter is available. + +proc check-python-available { args } { + set result [local_exec "python -c print(\"Hello\")" "" "" 300] + + set status [lindex $result 0] + set output [string trim [lindex $result 1]] + + if { $status != 0 || $output != "Hello" } { + return 0 + } else { + return 1 + } +} + +# Run the SCRIPT_PY Python script. Add one PASSing (FAILing) test per output +# line that starts with "PASS: " ("FAIL: "). Also fail for any other output +# line and for non-zero exit status code. +# +# The Python script can access Python modules and packages in the +# $srcdir/python directory. + +proc python-test { script_py } { + global srcdir + + set testname testname-for-summary + + # This assumes that we are three frames down from dg-test, and that + # it still stores the filename of the testcase in a local variable "name". + # A cleaner solution would require a new DejaGnu release. + upvar 2 prog src_file + + set asm_file "[file rootname [file tail $src_file]].o" + set script_py_path "[file dirname $src_file]/$script_py" + + set old_pythonpath [getenv "PYTHONPATH"] + set support_dir "$srcdir/python" + if { $old_pythonpath == "" } { + setenv "PYTHONPATH" $support_dir + } else { + setenv "PYTHONPATH" "$support_dir:$PYTHONPATH" + } + + set commandline "python $script_py_path $asm_file" + set timeout 300 + + verbose -log "Executing: $commandline (timeout = $timeout)" 2 + set result [local_exec $commandline "" "" $timeout] + + set status [lindex $result 0] + set output [lindex $result 1] + + if { $status != 0 } { + fail [concat "$testname: $script_py stopped with non-zero status" \ + " code ($status)"] + } + + foreach line [split $output "\n"] { + if { $line == "" } { + continue + } + if { [regexp "^PASS: (.*)" $line dummy message] } { + pass "$testname/$script_py: $message" + continue + } + if { [regexp "^FAIL: (.*)" $line dummy message] } { + fail "$testname/$script_py: $message" + continue + } + + fail "$testname/$script_py: spurious output: $line" + } + + setenv "PYTHONPATH" $old_pythonpath +} diff --git a/gcc/testsuite/python/testutils.py b/gcc/testsuite/python/testutils.py new file mode 100644 index 00000000000..503105ad9d0 --- /dev/null +++ b/gcc/testsuite/python/testutils.py @@ -0,0 +1,45 @@ +# Copyright (C) 2017 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 GCC; see the file COPYING3. If not see +# <http://www.gnu.org/licenses/>. + +# Helpers to drive a testcase + +def print_pass(message): + """Emit a PASS message. + + :param str message: Message to emit. + """ + print('PASS: {}'.format(message)) + + +def print_fail(message): + """Emit a FAIL message. + + :param str message: Message to emit. + """ + print('FAIL: {}'.format(message)) + + +def check(predicate, message): + """ + If `predicate` is True, emit a PASS message, otherwise emit a FAIL one. + + :param bool predicate: Whether the test should pass. + :param str message: Message to emit. + """ + if predicate: + print_pass(message) + else: + print_fail(message) -- 2.13.0