GDB 7.6.50

gdb/testsuite/gdb.mi/mi-record-changed.exp

Index: gdb/testsuite/gdb.mi/mi-record-changed.exp
diff --git a/gdb/testsuite/gdb.mi/mi-info-os.exp b/gdb/testsuite/gdb.mi/mi-record-changed.exp
similarity index 53%
copy from gdb/testsuite/gdb.mi/mi-info-os.exp
copy to gdb/testsuite/gdb.mi/mi-record-changed.exp
index 2fff688645ccc62eeb54afa7914605534133bc0b..75a6c1060a2e5eeaf0007025c12f4e650872ece0 100644
--- a/gdb/testsuite/gdb.mi/mi-info-os.exp
+++ b/gdb/testsuite/gdb.mi/mi-record-changed.exp
@@ -1,4 +1,4 @@
-# Copyright 2012 Free Software Foundation, Inc.
+# Copyright 2012-2013 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -13,26 +13,32 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-load_lib mi-support.exp
-set MIFLAGS "-i=mi"
-
-# This test is Linux-only.
-if ![istarget *-*-linux*] then {
-    unsupported "mi-info-os.exp"
-    return -1
+if ![supports_process_record] {
+    return
 }
 
-# Support for XML-output is needed to run this test.
-if [gdb_skip_xml_test] then {
-    unsupported "mi-info-os.exp"
+standard_testfile basics.c
+if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
+	  executable {debug nowarnings}] != "" } {
+    untested mi-record-changed.exp
     return -1
 }
 
-gdb_exit
+load_lib mi-support.exp
+
 if [mi_gdb_start] {
-    continue
+    return
 }
+mi_run_to_main
+
+mi_gdb_test "record" ".*=record-started,thread-group=\"i${decimal}\".*\\^done" \
+    "record"
+mi_gdb_test "record stop" \
+    ".*=record-stopped,thread-group=\"i${decimal}\".*\\^done" \
+    "record end"
 
-# Try the argument-less form that lists all the types in a table.
+mi_gdb_test "target record" \
+    ".*=record-started,thread-group=\"i${decimal}\".*\\^done" \
+    "target record"
 
-mi_gdb_test "-info-os" ".*\\^done,OSDataTable=.*" "-info-os"
+return 0