Test for new annotation.

diff --git a/gdb/testsuite/gdb.base/annota1.exp b/gdb/testsuite/gdb.base/annota1.exp
index 94dc078d6389605545e8f63f7d99902157bb3902..cd38c944cbcec071f9f86d49630a7a885ff652c5 100644 (file)
--- a/gdb/testsuite/gdb.base/annota1.exp
+++ b/gdb/testsuite/gdb.base/annota1.exp
@@ -490,6 +490,45 @@ if [ regexp "core not found" $exec_output]  {
     }
 }
 
+proc thread_test {} {
+    global objdir subdir srcdir
+    global gdb_prompt old_gdb_prompt
+    set testfile "watch_thread_num"
+    set srcfile ${testfile}.c
+    set binfile ${objdir}/${subdir}/${testfile}
+    set gdb_prompt $old_gdb_prompt
+
+    if { ![get_compiler_info ${binfile}] && [gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] == "" } {
+
+       gdb_exit
+       gdb_start
+       gdb_reinitialize_dir $srcdir/$subdir
+       gdb_load ${binfile}
+       if { ![runto main] } then {
+           fail "run to main"
+           return
+       }
+
+       set gdb_prompt \
+           "\r\n\032\032pre-prompt\r\n$gdb_prompt \r\n\032\032prompt\r\n"
+
+       send_gdb "set annotate 2\n"
+       gdb_expect {
+       -re "set annotate 2\r\n$gdb_prompt$" {}
+       }
+
+       send_gdb "next 2\n"
+       gdb_expect {
+           -re ".*\032\032new-thread" {
+           pass "new thread"
+           }
+           timeout { fail "new thread (timeout)" }
+       }
+    }
+}
+
+thread_test
+
 # restore the original prompt for the rest of the testsuite
 
 set gdb_prompt $old_gdb_prompt