From: Joel Brobecker <brobecker@gnat.com>
Date: Mon, 23 Jun 2003 22:59:04 +0000 (+0000)
Subject:        * gdb.base/langs.exp: Add some tests for the "minimal" language
X-Git-Tag: cagney_x86i386-20030821-branchpoint~170
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6317fc71ddf26944664231de71f59177e4efcb28;p=thirdparty%2Fbinutils-gdb.git

   * gdb.base/langs.exp: Add some tests for the "minimal" language
       support.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 875015511f6..161d9fabea0 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