diff options
| author | Pedro Alves <palves@redhat.com> | 2010-08-19 17:00:58 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2010-08-19 17:00:58 +0000 |
| commit | e7fbb131d42983eec31231f8bb69cdd8d5a33ee6 (patch) | |
| tree | 7c793bdbbfe7395f00891040ef36265a7afd3223 /gdb/testsuite/gdb.python/py-shared.exp | |
| parent | d30f5e1f70ffa9fab08ccdacdba1bd6365d2511d (diff) | |
| download | binutils-e7fbb131d42983eec31231f8bb69cdd8d5a33ee6.zip binutils-e7fbb131d42983eec31231f8bb69cdd8d5a33ee6.tar.gz binutils-e7fbb131d42983eec31231f8bb69cdd8d5a33ee6.tar.bz2 | |
* gdb.python/py-shared.exp: New file, factored out from
python.exp.
* gdb.python/py-shared.c: New file.
* gdb.python/py-shared-sl.c: New file.
* gdb.python/python-1.c: New file.
* gdb.python/python-sl.c: Delete.
* gdb.python/python.c: Mention python-1.c.
* gdb.python/python.exp: Move shared library tests to
py-shared.exp.
* gdb.python/Makefile.in (EXECUTABLES): Add py-shared and python.
(MISCELLANEOUS): New.
(clean mostlyclean): Also remove $MISCELLANEOUS.
Diffstat (limited to 'gdb/testsuite/gdb.python/py-shared.exp')
| -rw-r--r-- | gdb/testsuite/gdb.python/py-shared.exp | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.python/py-shared.exp b/gdb/testsuite/gdb.python/py-shared.exp new file mode 100644 index 0000000..41394b4 --- /dev/null +++ b/gdb/testsuite/gdb.python/py-shared.exp @@ -0,0 +1,77 @@ +# Copyright (C) 2008, 2009, 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 <http://www.gnu.org/licenses/>. + +# This file is part of the GDB testsuite. + +if {[skip_shlib_tests]} { + return 0 +} + +set testfile "py-shared" +set srcfile ${testfile}.c +set libfile "py-shared-sl" +set libsrc ${libfile}.c +set library ${objdir}/${subdir}/${libfile}.sl +set binfile ${objdir}/${subdir}/${testfile} + +if { [gdb_compile_shlib ${srcdir}/${subdir}/${libsrc} ${library} "debug"] != "" } { + untested "Could not compile shared library." + return -1 +} + +set exec_opts [list debug shlib=${library}] + +if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable $exec_opts] != "" } { + untested "Could not compile $binfile." + return -1 +} + +# 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 } } + } +} + +# Start with a fresh gdb. +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +# Skip all tests if Python scripting is not enabled. +if { [skip_python_tests] } { continue } + +# The following tests require execution. + +if ![runto_main] then { + fail "Can't run to main" + return 0 +} + +runto [gdb_get_line_number "Break to end."] + +# Test gdb.solib_name +gdb_test "p &func1" "" "func1 address" +gdb_py_test_silent_cmd "python func1 = gdb.history(0)" "Aquire func1 address" 1 +gdb_test "python print gdb.solib_name(long(func1))" "gdb/testsuite/gdb.python/py-shared-sl.sl" "test func1 solib location" + +gdb_test "p &main" "" "main address" +gdb_py_test_silent_cmd "python main = gdb.history(0)" "Aquire main address" 1 +gdb_test "python print gdb.solib_name(long(main))" "None" "test main solib location" |