2011-01-10 Phil Muldoon <pmuldoon@redhat.com>
* gdb.python/py-cmd.exp: Remove gdb_py_test_multiple function. Use load_lib gdb-python.exp. * gdb.python/python.exp: Ditto. * gdb.python/py-function.exp: Ditto.
This commit is contained in:
parent
7af8ed2d47
commit
f39a75d0cd
4 changed files with 9 additions and 52 deletions
|
@ -1,3 +1,10 @@
|
|||
2011-01-10 Phil Muldoon <pmuldoon@redhat.com>
|
||||
|
||||
* gdb.python/py-cmd.exp: Remove gdb_py_test_multiple function.
|
||||
Use load_lib gdb-python.exp.
|
||||
* gdb.python/python.exp: Ditto.
|
||||
* gdb.python/py-function.exp: Ditto.
|
||||
|
||||
2011-01-09 Andreas Schwab <schwab@linux-m68k.org>
|
||||
|
||||
* gdb.threads/tls.exp ("info address me"): Fix expected output.
|
||||
|
|
|
@ -20,23 +20,7 @@ if $tracelevel then {
|
|||
strace $tracelevel
|
||||
}
|
||||
|
||||
# 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
|
||||
}
|
||||
load_lib gdb-python.exp
|
||||
|
||||
# Start with a fresh gdb.
|
||||
|
||||
|
|
|
@ -20,23 +20,7 @@ if $tracelevel then {
|
|||
strace $tracelevel
|
||||
}
|
||||
|
||||
# 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
|
||||
}
|
||||
load_lib gdb-python.exp
|
||||
|
||||
# Start with a fresh gdb.
|
||||
|
||||
|
|
|
@ -53,24 +53,6 @@ gdb_test_multiple "python print 23" "verify python support" {
|
|||
-re "$gdb_prompt $" {}
|
||||
}
|
||||
|
||||
# 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
|
||||
}
|
||||
|
||||
gdb_py_test_multiple "multi-line python command" \
|
||||
"python" "" \
|
||||
"print 23" "" \
|
||||
|
|
Loading…
Reference in a new issue