test, gcore: move capture_command_output into lib/gdb.exp

Allow gcore's capture_command_output function to be used by other tests.

testsuite/
	* gdb.base/gcore.exp (capture_command_output): Move ...
	* lib/gdb.exp (capture_command_output): ... here.
This commit is contained in:
Markus Metzger 2014-05-20 09:48:43 +02:00
parent 67b5c0c1a4
commit e9089e05b6
3 changed files with 19 additions and 13 deletions

View File

@ -1,3 +1,8 @@
2014-05-23 Markus Metzger <markus.t.metzger@intel.com>
* gdb.base/gcore.exp (capture_command_output): Move ...
* lib/gdb.exp (capture_command_output): ... here.
2014-05-23 Markus Metzger <markus.t.metzger@intel.com>
* gdb.btrace/data.exp: Test memory access during btrace replay.

View File

@ -41,19 +41,6 @@ if { ! [ runto_main ] } then {
return -1
}
proc capture_command_output { command prefix } {
global gdb_prompt
global expect_out
set output_string ""
gdb_test_multiple "$command" "capture_command_output for $command" {
-re "${command}\[\r\n\]+${prefix}(.*)\[\r\n\]+$gdb_prompt $" {
set output_string $expect_out(1,string)
}
}
return $output_string
}
gdb_test "break terminal_func" "Breakpoint .* at .*${srcfile}, line .*" \
"set breakpoint at terminal_func"

View File

@ -4773,5 +4773,19 @@ proc parse_args { argset } {
# number of items expected to be passed into the procedure...
}
# Capture the output of COMMAND in a string ignoring PREFIX; return that string.
proc capture_command_output { command prefix } {
global gdb_prompt
global expect_out
set output_string ""
gdb_test_multiple "$command" "capture_command_output for $command" {
-re "${command}\[\r\n\]+${prefix}(.*)\[\r\n\]+$gdb_prompt $" {
set output_string $expect_out(1,string)
}
}
return $output_string
}
# Always load compatibility stuff.
load_lib future.exp