aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.python/py-block.exp
diff options
context:
space:
mode:
authorDoug Evans <dje@google.com>2010-10-01 17:03:50 +0000
committerDoug Evans <dje@google.com>2010-10-01 17:03:50 +0000
commita2c09bd0c7148be4ed1b9631905ebe891204be1a (patch)
tree4c70da6a52b0e38a40f965e02503cd4ad76698cc /gdb/testsuite/gdb.python/py-block.exp
parent05e522ef517a67b2c47e04e7c11f7897c569dae6 (diff)
downloadgdb-a2c09bd0c7148be4ed1b9631905ebe891204be1a.zip
gdb-a2c09bd0c7148be4ed1b9631905ebe891204be1a.tar.gz
gdb-a2c09bd0c7148be4ed1b9631905ebe891204be1a.tar.bz2
* lib/gdb-python.exp: New file.
* gdb.python/py-block.exp: Use it. * gdb.python/py-breakpoint.exp: Ditto. * gdb.python/py-frame.exp: Ditto. * gdb.python/py-inferior.exp: Ditto. * gdb.python/py-param.exp: Ditto. * gdb.python/py-prettyprint.exp: Ditto. * gdb.python/py-shared.exp: Ditto. * gdb.python/py-symbol.exp: Ditto. * gdb.python/py-symtab.exp: Ditto. * gdb.python/py-type.exp: Ditto. * gdb.python/py-value.exp: Ditto. * gdb.python/python.exp: Ditto.
Diffstat (limited to 'gdb/testsuite/gdb.python/py-block.exp')
-rw-r--r--gdb/testsuite/gdb.python/py-block.exp13
1 files changed, 2 insertions, 11 deletions
diff --git a/gdb/testsuite/gdb.python/py-block.exp b/gdb/testsuite/gdb.python/py-block.exp
index f6e5d73..f7065ac 100644
--- a/gdb/testsuite/gdb.python/py-block.exp
+++ b/gdb/testsuite/gdb.python/py-block.exp
@@ -20,6 +20,8 @@ if $tracelevel then {
strace $tracelevel
}
+load_lib gdb-python.exp
+
set testfile "py-block"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
@@ -28,17 +30,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
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