From 279017b761dcda4b0e94e6c91676afb091c85cbc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Tue, 13 Oct 2009 07:57:28 +0000
Subject: [PATCH] 2009-10-12  Tristan Gingold  <gingold@adacore.com>

	* gdb.base/sepdebug.exp: Check debug info are found.
---
 gdb/testsuite/ChangeLog             | 4 ++++
 gdb/testsuite/gdb.base/sepdebug.exp | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 64f21898c7..73d4ba3fa7 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-13  Tristan Gingold  <gingold@adacore.com>
+
+	* gdb.base/sepdebug.exp: Check debug info are found.
+
 2009-10-08  Pedro Alves  <pedro@codesourcery.com>
 
 	* lib/gdb.exp (gdb_compile): Remove dead aix and irix related
diff --git a/gdb/testsuite/gdb.base/sepdebug.exp b/gdb/testsuite/gdb.base/sepdebug.exp
index 10eb49d78c..0962767e13 100644
--- a/gdb/testsuite/gdb.base/sepdebug.exp
+++ b/gdb/testsuite/gdb.base/sepdebug.exp
@@ -61,6 +61,9 @@ gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
 gdb_load ${binfile}
+if { $gdb_file_cmd_debug_info != "debug" } then {
+    fail "No debug information found."
+}
 
 if [target_info exists gdb_stub] {
     gdb_step_for_stub;