From f125c9a4e90b18df4e6a582c2a16ce8b3a7dc697 Mon Sep 17 00:00:00 2001
From: Joel Brobecker <brobecker@gnat.com>
Date: Mon, 23 Jun 2003 22:42:50 +0000
Subject: [PATCH]        * gdb.base/langs.exp: Add some tests for the "minimal"
 language        support.

---
 gdb/testsuite/ChangeLog          |  5 +++++
 gdb/testsuite/gdb.base/langs.exp | 15 +++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ce28f5da078..5df53d45581 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-23  Joel Brobecker  <brobecker@gnat.com>
+
+	* gdb.base/langs.exp: Add some tests for the "minimal" language
+	support.
+
 2003-06-23  Elena Zannoni  <ezannoni@redhat.com>
 
 	* gdb.objc/basicclass.exp: Return -1 if we cannot compile
diff --git a/gdb/testsuite/gdb.base/langs.exp b/gdb/testsuite/gdb.base/langs.exp
index 9ed1e91a289..8006bbfd788 100644
--- a/gdb/testsuite/gdb.base/langs.exp
+++ b/gdb/testsuite/gdb.base/langs.exp
@@ -145,5 +145,20 @@ if [runto csub] then {
     }
 }
 
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load $binfile
+
+# Try exercising the "minimal" language a bit...
+
+if [runto csub] then {
+    gdb_test "set lang minimal" \
+             "Warning: the current language does not match this frame." \
+             "set lang to minimal"
+    
+    gdb_test "print x" " = 5000" "print parameter value"
+}
+
 set timeout $oldtimeout
 return 0
-- 
2.39.2