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

       support.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ce28f5da078b0be9ddcd5547300315f6312f831b..5df53d45581c28cd04bfd7fcec1d1cfedd5f1e53 100644 (file)
--- 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 9ed1e91a28952a60c8247c9c862c727271327d12..8006bbfd788020992512c06c6fc64823def40809 100644 (file)
--- 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