From 79afeace624e7917961bb90d25ba32b415dacba1 Mon Sep 17 00:00:00 2001
From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 20 May 2008 21:11:04 +0000
Subject: [PATCH] Test for new annotation.
---
gdb/testsuite/gdb.base/annota1.exp | 39 ++++++++++++++++++++++++++++++
1 file changed, 39 insertions(+)
diff --git a/gdb/testsuite/gdb.base/annota1.exp b/gdb/testsuite/gdb.base/annota1.exp
index 94dc078d638..cd38c944cbc 100644
--- 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