From 0216b86fd83f6d85e142b1826b64007bcd2446bb Mon Sep 17 00:00:00 2001
From: drow <drow>
Date: Mon, 1 Feb 2010 17:15:36 +0000
Subject: [PATCH] 	* gdb.base/gcore.exp (capture_command_output): Use 
 gdb_test_multiple.

---
 gdb/testsuite/ChangeLog          | 5 +++++
 gdb/testsuite/gdb.base/gcore.exp | 6 +-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 00f4aeca24..b0e7ea937d 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2010-02-01  Daniel Jacobowitz  <dan@codesourcery.com>
 
+	* gdb.base/gcore.exp (capture_command_output): Use
+	gdb_test_multiple.
+
+2010-02-01  Daniel Jacobowitz  <dan@codesourcery.com>
+
 	* gdb.arch/thumb2-it.S (it_breakpoints): New function.
 	* gdb.arch/thumb2-it.exp (test_it_break): New function.
 	(Top level): Call it.
diff --git a/gdb/testsuite/gdb.base/gcore.exp b/gdb/testsuite/gdb.base/gcore.exp
index 8ed966ca33..ee202840d2 100644
--- a/gdb/testsuite/gdb.base/gcore.exp
+++ b/gdb/testsuite/gdb.base/gcore.exp
@@ -69,14 +69,10 @@ proc capture_command_output { command prefix } {
     global expect_out
 
     set output_string ""
-    send_gdb "$command\n"
-    gdb_expect {
+    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)
 	}
-	default {
-	    fail "capture_command_output failed on $command."
-	}
     }
     return $output_string
 }
-- 
2.11.0