This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[RFA] gdb.base a*.exp b*.exp send_gdb vs gdb_test
- From: Michael Snyder <msnyder at vmware dot com>
- To: "gdb-patches at sourceware dot org" <gdb-patches at sourceware dot org>
- Date: Mon, 24 May 2010 14:30:33 -0700
- Subject: [RFA] gdb.base a*.exp b*.exp send_gdb vs gdb_test
2010-05-22 Michael Snyder <msnyder@vmware.com>
* gdb.base/a2-run.exp: Replace send_gdb with gdb_test.
* gdb.base/all-bin.exp: Replace send_gdb with gdb_test.
* gdb.base/annota1.exp: Replace send_gdb with gdb_test.
* gdb.base/annota3.exp: Replace send_gdb with gdb_test.
* gdb.base/assign.exp: Replace send_gdb with gdb_test.
* gdb.base/attach.exp: Replace send_gdb with gdb_test.
* gdb.base/bitfields.exp: Replace send_gdb with gdb_test.
* gdb.base/bitfields2.exp: Replace send_gdb with gdb_test.
* gdb.base/bitops.exp: Replace send_gdb with gdb_test.
Index: a2-run.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/a2-run.exp,v
retrieving revision 1.15
diff -u -p -r1.15 a2-run.exp
--- a2-run.exp 5 May 2010 18:06:57 -0000 1.15
+++ a2-run.exp 24 May 2010 21:28:10 -0000
@@ -150,11 +150,10 @@ if [istarget "*-*-vxworks*"] then {
# Use "set args" command to specify no arguments as default and run again.
if [istarget "*-*-vxworks*"] then {
- send_gdb "set args main\n"
+ gdb_test_no_output "set args main"
} else {
- send_gdb "set args\n"
+ gdb_test_no_output "set args"
}
-gdb_expect -re "$gdb_prompt $"
gdb_run_cmd
@@ -192,11 +191,11 @@ if [istarget "*-*-vxworks*"] then {
# Use "set args" command to specify an argument and run again.
setup_xfail "mips-idt-*"
if [istarget "*-*-vxworks*"] then {
- send_gdb "set args vxmain \"6\"\n"
+ gdb_test_no_output "set args vxmain \"6\""
} else {
- send_gdb "set args 6\n"
+ gdb_test_no_output "set args 6"
}
-gdb_expect -re "$gdb_prompt $"
+
gdb_run_cmd
if [istarget "*-*-vxworks*"] then {
@@ -234,22 +233,12 @@ if [istarget "*-*-vxworks*"] then {
# GOAL: Test that shell is being used with "run". For remote debugging
# targets, there is no guarantee that a "shell" (whatever that is) is used.
if ![is_remote target] then {
- send_gdb "run `echo 8`\n"
- gdb_expect {
- -re "Starting program.*40320.*$gdb_prompt $" {
- pass "run \"$testfile\" with shell"
- }
- -re ".*$gdb_prompt $" {
- fail "run \"$testfile\" with shell"
- }
- timeout {
- fail "(timeout) run \"$testfile\" with shell"
- }
- }
+ gdb_test "run `echo 8`" \
+ "Starting program.*40320.*" \
+ "run \"$testfile\" with shell"
}
# Reset the default arguments for VxWorks
if [istarget "*-*-vxworks*"] then {
- send_gdb "set args main\n"
- gdb_expect -re ".*$gdb_prompt $" {}
+ gdb_test_no_output "set args main"
}
Index: all-bin.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/all-bin.exp,v
retrieving revision 1.13
diff -u -p -r1.13 all-bin.exp
--- all-bin.exp 5 May 2010 18:06:57 -0000 1.13
+++ all-bin.exp 24 May 2010 21:28:10 -0000
@@ -61,404 +61,125 @@ if ![runto_main] then {
gdb_test "next" "return 0;" "continuing after dummy()"
-send_gdb "print v_int+v_char\n"
-gdb_expect {
- -re ".*71.*$gdb_prompt $" {
- pass "print value of v_int+v_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_char" }
- timeout { fail "(timeout) print value of v_int+v_char" }
- }
-
-send_gdb "print v_int+v_short\n"
-gdb_expect {
- -re ".*9.*$gdb_prompt $" {
- pass "print value of v_int+v_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_short" }
- timeout { fail "(timeout) print value of v_int+v_short" }
- }
-
-
-send_gdb "print v_int+v_signed_char\n"
-gdb_expect {
- -re ".*72.*$gdb_prompt $" {
- pass "print value of v_int+v_signed_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_char" }
- timeout { fail "(timeout) print value of v_int+v_signed_char" }
- }
-
-
-send_gdb "print v_int+v_unsigned_char\n"
-gdb_expect {
- -re ".*73.*$gdb_prompt $" {
- pass "print value of v_int+v_unsigned_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_char" }
- timeout { fail "(timeout) print value of v_int+v_unsigned_char" }
- }
-
-
-send_gdb "print v_int+v_signed_short\n"
-gdb_expect {
- -re ".*10.*$gdb_prompt $" {
- pass "print value of v_int+v_signed_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_short" }
- timeout { fail "(timeout) print value of v_int+v_signed_short" }
- }
-
-
-send_gdb "print v_int+v_unsigned_short\n"
-gdb_expect {
- -re ".*11.*$gdb_prompt $" {
- pass "print value of v_int+v_unsigned_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_short" }
- timeout { fail "(timeout) print value of v_int+v_unsigned_short" }
- }
-
-
-send_gdb "print v_int+v_signed_int\n"
-gdb_expect {
- -re ".*13.*$gdb_prompt $" {
- pass "print value of v_int+v_signed_int"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_int" }
- timeout { fail "(timeout) print value of v_int+v_signed_int" }
- }
-
-
-send_gdb "print v_int+v_unsigned_int\n"
-gdb_expect {
- -re ".*14.*$gdb_prompt $" {
- pass "print value of v_int+v_unsigned_int"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_int" }
- timeout { fail "(timeout) print value of v_int+v_unsigned_int" }
- }
-
-
-send_gdb "print v_int+v_long\n"
-gdb_expect {
- -re ".*15.*$gdb_prompt $" {
- pass "print value of v_int+v_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_long" }
- timeout { fail "(timeout) print value of v_int+v_long" }
- }
-
-
-send_gdb "print v_int+v_signed_long\n"
-gdb_expect {
- -re ".*16.*$gdb_prompt $" {
- pass "print value of v_int+v_signed_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_long" }
- timeout { fail "(timeout) print value of v_int+v_signed_long" }
- }
-
-
-send_gdb "print v_int+v_unsigned_long\n"
-gdb_expect {
- -re ".*17.*$gdb_prompt $" {
- pass "print value of v_int+v_unsigned_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_long" }
- timeout { fail "(timeout) print value of v_int+v_unsigned_long" }
- }
-
-
-send_gdb "print v_int+v_float\n"
-gdb_expect {
- -re ".*106.34343.*$gdb_prompt $" {
- pass "print value of v_int+v_float"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_float" }
- timeout { fail "(timeout) print value of v_int+v_float" }
- }
-
-
-send_gdb "print v_int+v_double\n"
-gdb_expect {
- -re ".*206.565.*$gdb_prompt $" {
- pass "print value of v_int+v_double"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int+v_double" }
- timeout { fail "(timeout) print value of v_int+v_double" }
-}
+gdb_test "print v_int+v_char" " = 71" "print value of v_int+v_char"
+
+gdb_test "print v_int+v_short" " = 9" "print value of v_int+v_short"
+
+gdb_test "print v_int+v_signed_char" " = 72" \
+ "print value of v_int+v_signed_char"
+
+gdb_test "print v_int+v_unsigned_char" " = 73" \
+ "print value of v_int+v_unsigned_char"
+
+gdb_test "print v_int+v_signed_short" " = 10" \
+ "print value of v_int+v_signed_short"
+
+gdb_test "print v_int+v_unsigned_short" " = 11" \
+ "print value of v_int+v_unsigned_short"
+
+gdb_test "print v_int+v_signed_int" " = 13" \
+ "print value of v_int+v_signed_int"
+
+gdb_test "print v_int+v_unsigned_int" " = 14" \
+ "print value of v_int+v_unsigned_int"
+
+gdb_test "print v_int+v_long" " = 15" "print value of v_int+v_long"
+
+gdb_test "print v_int+v_signed_long" " = 16" \
+ "print value of v_int+v_signed_long"
+
+gdb_test "print v_int+v_unsigned_long" " = 17" \
+ "print value of v_int+v_unsigned_long"
+
+gdb_test "print v_int+v_float" " = 106.34343.*" \
+ "print value of v_int+v_float"
+
+gdb_test "print v_int+v_double" " = 206.565.*" \
+ "print value of v_int+v_double"
#
# test the relational operators with mixed types
#
-send_gdb "print v_int <= v_char\n"
-gdb_expect {
- -re ".*1.*$gdb_prompt $" {
- pass "print value of v_int<=v_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_char" }
- timeout { fail "(timeout) print value of v_int<=v_char" }
- }
-
-send_gdb "print v_int <= v_short\n"
-gdb_expect {
- -re ".*$false.*$gdb_prompt $" {
- pass "print value of v_int<=v_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_short" }
- timeout { fail "(timeout) print value of v_int<=v_short" }
- }
-
-
-send_gdb "print v_int <= v_signed_char\n"
-gdb_expect {
- -re ".*1.*$gdb_prompt $" {
- pass "print value of v_int<=v_signed_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_char" }
- timeout { fail "(timeout) print value of v_int<=v_signed_char" }
- }
-
-
-send_gdb "print v_int <= v_unsigned_char\n"
-gdb_expect {
- -re ".*1.*$gdb_prompt $" {
- pass "print value of v_int<=v_unsigned_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_char" }
- timeout { fail "(timeout) print value of v_int<=v_unsigned_char" }
- }
-
-
-send_gdb "print v_int <= v_signed_short\n"
-gdb_expect {
- -re ".*$false.*$gdb_prompt $" {
- pass "print value of v_int<=v_signed_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_short" }
- timeout { fail "(timeout) print value of v_int<=v_signed_short" }
- }
-
-
-send_gdb "print v_int <= v_unsigned_short\n"
-gdb_expect {
- -re ".*$false.*$gdb_prompt $" {
- pass "print value of v_int<=v_unsigned_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_short" }
- timeout { fail "(timeout) print value of v_int<=v_unsigned_short" }
- }
-
-
-send_gdb "print v_int <= v_signed_int\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int<=v_signed_int"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_int" }
- timeout { fail "(timeout) print value of v_int<=v_signed_int" }
- }
-
-
-send_gdb "print v_int <= v_unsigned_int\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int<=v_unsigned_int"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_int" }
- timeout { fail "(timeout) print value of v_int<=v_unsigned_int" }
- }
-
-
-send_gdb "print v_int <= v_long\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int<=v_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_long" }
- timeout { fail "(timeout) print value of v_int<=v_long" }
- }
-
-
-send_gdb "print v_int <= v_signed_long\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int<=v_signed_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_long" }
- timeout { fail "(timeout) print value of v_int<=v_signed_long" }
- }
-
-
-send_gdb "print v_int <= v_unsigned_long\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int<=v_unsigned_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_long" }
- timeout { fail "(timeout) print value of v_int<=v_unsigned_long" }
- }
-
-
-send_gdb "print v_int <= v_float\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int<=v_float"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_float" }
- timeout { fail "(timeout) print value of v_int<=v_float" }
- }
-
-
-send_gdb "print v_int <= v_double\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int<=v_double"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int<=v_double" }
- timeout { fail "(timeout) print value of v_int<=v_double" }
- }
+gdb_test "print v_int <= v_char" " = 1" "print value of v_int<=v_char"
+
+gdb_test "print v_int <= v_short" " = $false" \
+ "print value of v_int<=v_short"
+
+gdb_test "print v_int <= v_signed_char" " = 1" \
+ "print value of v_int<=v_signed_char"
+
+gdb_test "print v_int <= v_unsigned_char" " = 1" \
+ "print value of v_int<=v_unsigned_char"
+
+gdb_test "print v_int <= v_signed_short" " = $false" \
+ "print value of v_int<=v_signed_short"
+
+gdb_test "print v_int <= v_unsigned_short" " = $false" \
+ "print value of v_int<=v_unsigned_short"
+
+gdb_test "print v_int <= v_signed_int" " = $true" \
+ "print value of v_int<=v_signed_int"
+gdb_test "print v_int <= v_unsigned_int" " = $true" \
+ "print value of v_int<=v_unsigned_int"
+gdb_test "print v_int <= v_long" " = $true" "print value of v_int<=v_long"
+
+gdb_test "print v_int <= v_signed_long" " = $true" \
+ "print value of v_int<=v_signed_long"
+
+gdb_test "print v_int <= v_unsigned_long" " = $true" \
+ "print value of v_int<=v_unsigned_long"
+
+gdb_test "print v_int <= v_float" " = $true" "print value of v_int<=v_float"
+
+gdb_test "print v_int <= v_double" " = $true" \
+ "print value of v_int<=v_double"
#
# test the logical operators with mixed types
#
-gdb_test "set variable v_char=0" "" "set v_char=0"
-gdb_test "set variable v_double=0.0" "" "set v_double=0"
-gdb_test "set variable v_unsigned_long=0" "" "set v_unsigned_long=0"
-
-send_gdb "print v_int && v_char\n"
-gdb_expect {
- -re ".*$false.*$gdb_prompt $" {
- pass "print value of v_int&&v_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_char" }
- timeout { fail "(timeout) print value of v_int&&v_char" }
- }
-
-send_gdb "print v_int && v_short\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_short" }
- timeout { fail "(timeout) print value of v_int&&v_short" }
- }
-
-
-send_gdb "print v_int && v_signed_char\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_signed_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_char" }
- timeout { fail "(timeout) print value of v_int&&v_signed_char" }
- }
-
-
-send_gdb "print v_int && v_unsigned_char\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_unsigned_char"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_char" }
- timeout { fail "(timeout) print value of v_int&&v_unsigned_char" }
- }
-
-
-send_gdb "print v_int && v_signed_short\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_signed_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_short" }
- timeout { fail "(timeout) print value of v_int&&v_signed_short" }
- }
-
-
-send_gdb "print v_int && v_unsigned_short\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_unsigned_short"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_short" }
- timeout { fail "(timeout) print value of v_int&&v_unsigned_short" }
- }
-
-
-send_gdb "print v_int && v_signed_int\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_signed_int"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_int" }
- timeout { fail "(timeout) print value of v_int&&v_signed_int" }
- }
-
-
-send_gdb "print v_int && v_unsigned_int\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_unsigned_int"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_int" }
- timeout { fail "(timeout) print value of v_int&&v_unsigned_int" }
- }
-
-
-send_gdb "print v_int && v_long\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_long" }
- timeout { fail "(timeout) print value of v_int&&v_long" }
- }
-
-
-send_gdb "print v_int && v_signed_long\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_signed_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_long" }
- timeout { fail "(timeout) print value of v_int&&v_signed_long" }
- }
-
-
-send_gdb "print v_int && v_unsigned_long\n"
-gdb_expect {
- -re ".*$false.*$gdb_prompt $" {
- pass "print value of v_int&&v_unsigned_long"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_long" }
- timeout { fail "(timeout) print value of v_int&&v_unsigned_long" }
- }
-
-
-send_gdb "print v_int && v_float\n"
-gdb_expect {
- -re ".*$true.*$gdb_prompt $" {
- pass "print value of v_int&&v_float"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_float" }
- timeout { fail "(timeout) print value of v_int&&v_float" }
- }
-
-
-send_gdb "print v_int && v_double\n"
-gdb_expect {
- -re ".*$false.*$gdb_prompt $" {
- pass "print value of v_int&&v_double"
- }
- -re ".*$gdb_prompt $" { fail "print value of v_int&&v_double" }
- timeout { fail "(timeout) print value of v_int&&v_double" }
- }
+gdb_test_no_output "set variable v_char=0" "set v_char=0"
+gdb_test_no_output "set variable v_double=0.0" "set v_double=0"
+gdb_test_no_output "set variable v_unsigned_long=0" "set v_unsigned_long=0"
+
+gdb_test "print v_int && v_char" " = $false" "print value of v_int&&v_char"
+
+gdb_test "print v_int && v_short" " = $true" "print value of v_int&&v_short"
+
+gdb_test "print v_int && v_signed_char" " = $true" \
+ "print value of v_int&&v_signed_char"
+
+gdb_test "print v_int && v_unsigned_char" " = $true" \
+ "print value of v_int&&v_unsigned_char"
+
+gdb_test "print v_int && v_signed_short" " = $true" \
+ "print value of v_int&&v_signed_short"
+
+gdb_test "print v_int && v_unsigned_short" " = $true" \
+ "print value of v_int&&v_unsigned_short"
+
+gdb_test "print v_int && v_signed_int" " = $true" \
+ "print value of v_int&&v_signed_int"
+
+gdb_test "print v_int && v_unsigned_int" " = $true" \
+ "print value of v_int&&v_unsigned_int"
+
+gdb_test "print v_int && v_long" " = $true" "print value of v_int&&v_long"
+
+gdb_test "print v_int && v_signed_long" " = $true" \
+ "print value of v_int&&v_signed_long"
+
+gdb_test "print v_int && v_unsigned_long" " = $false" \
+ "print value of v_int&&v_unsigned_long"
+
+gdb_test "print v_int && v_float" " = $true" "print value of v_int&&v_float"
+
+gdb_test "print v_int && v_double" " = $false" \
+ "print value of v_int&&v_double"
Index: annota1.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/annota1.exp,v
retrieving revision 1.38
diff -u -p -r1.38 annota1.exp
--- annota1.exp 5 May 2010 18:06:57 -0000 1.38
+++ annota1.exp 24 May 2010 21:28:10 -0000
@@ -61,8 +61,7 @@ set main_line 32
# The commands we test here produce many lines of output; disable "press
# <return> to continue" prompts.
-send_gdb "set height 0\n"
-gdb_expect -re "$gdb_prompt $"
+gdb_test_no_output "set height 0"
#
# break at main
@@ -113,15 +112,14 @@ gdb_expect {
# annotate-record
# annotate-breakpoints-table-end
#
-send_gdb "info break\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-headers\r\n\r\n\032\032field 0\r\nNum \r\n\032\032field 1\r\nType \r\n\032\032field 2\r\nDisp \r\n\032\032field 3\r\nEnb \r\n\032\032field 4\r\nAddress +\r\n\032\032field 5\r\nWhat\r\n\r\n\032\032breakpoints-table\r\n\r\n\032\032record\r\n\r\n\032\032field 0\r\n1 \r\n\032\032field 1\r\nbreakpoint \r\n\032\032field 2\r\nkeep \r\n\032\032field 3\r\ny \r\n\032\032field 4\r\n$hex +\r\n\032\032field 5\r\nin main at ${escapedsrcfile}:$main_line\r\n\r\n\032\032breakpoints-table-end\r\n$gdb_prompt$" \
- {pass "breakpoint info"}
- -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-headers\r\n\r\n\032\032field 0\r\nNum \r\n\032\032field 1\r\nType \r\n\032\032field 2\r\nDisp \r\n\032\032field 3\r\nEnb \r\n\032\032field 4\r\nAddress +\r\n\032\032field 5\r\nWhat\r\n\r\n\032\032breakpoints-table\r\n\r\n\032\032record\r\n\r\n\032\032field 0\r\n1 \r\n\032\032field 1\r\nbreakpoint \r\n\032\032field 2\r\nkeep \r\n\032\032field 3\r\ny \r\n\032\032field 4\r\n$hex +\r\n\032\032field 5\r\nin main at .*${srcfile}:$main_line\r\n\r\n\032\032breakpoints-table-end\r\n$gdb_prompt$" \
- { setup_xfail "*-*-*" 1270
- fail "breakpoint info"}
- -re ".*$gdb_prompt$" { fail "breakpoint info" }
- timeout { fail "breakpoint info (timeout)" }
+gdb_test_multiple "info break" "breakpoint info" {
+ -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-headers\r\n\r\n\032\032field 0\r\nNum \r\n\032\032field 1\r\nType \r\n\032\032field 2\r\nDisp \r\n\032\032field 3\r\nEnb \r\n\032\032field 4\r\nAddress +\r\n\032\032field 5\r\nWhat\r\n\r\n\032\032breakpoints-table\r\n\r\n\032\032record\r\n\r\n\032\032field 0\r\n1 \r\n\032\032field 1\r\nbreakpoint \r\n\032\032field 2\r\nkeep \r\n\032\032field 3\r\ny \r\n\032\032field 4\r\n$hex +\r\n\032\032field 5\r\nin main at ${escapedsrcfile}:$main_line\r\n\r\n\032\032breakpoints-table-end\r\n$gdb_prompt$" {
+ pass "breakpoint info"
+ }
+ -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-headers\r\n\r\n\032\032field 0\r\nNum \r\n\032\032field 1\r\nType \r\n\032\032field 2\r\nDisp \r\n\032\032field 3\r\nEnb \r\n\032\032field 4\r\nAddress +\r\n\032\032field 5\r\nWhat\r\n\r\n\032\032breakpoints-table\r\n\r\n\032\032record\r\n\r\n\032\032field 0\r\n1 \r\n\032\032field 1\r\nbreakpoint \r\n\032\032field 2\r\nkeep \r\n\032\032field 3\r\ny \r\n\032\032field 4\r\n$hex +\r\n\032\032field 5\r\nin main at .*${srcfile}:$main_line\r\n\r\n\032\032breakpoints-table-end\r\n$gdb_prompt$" {
+ setup_xfail "*-*-*" 1270
+ fail "breakpoint info"
+ }
}
@@ -145,18 +143,11 @@ gdb_expect {
#
#exp_internal 1
set binexp [string_to_regexp $binfile]
-send_gdb "run\n"
-gdb_expect {
+gdb_test_multiple "run" "run until main breakpoint" {
-re "\r\n\032\032post-prompt\r\nStarting program: $binexp \(\(\r\n\r\n\032\032frames-invalid\)|\(\r\n\r\n\032\032breakpoints-invalid\)\)+\r\n\r\n\032\032starting\(\(\r\n\r\n\032\032frames-invalid\)|\(\r\n\r\n\032\032breakpoints-invalid\)\)*\r\n\r\n\032\032breakpoint 1\r\n\r\nBreakpoint 1, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nmain\r\n\032\032frame-args\r\n \\(\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*annota1.c\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n$main_line\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*$srcfile:$main_line:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped.*$gdb_prompt$" {
pass "run until main breakpoint"
}
- -re ".*$gdb_prompt$" {
- fail "run until main breakpoint"
- }
- timeout {
- fail "run until main breakpoint (timeout)"
- }
- }
+}
#exp_internal 0
#exit 0
@@ -165,10 +156,10 @@ gdb_expect {
# We don't care about the annotated output for this operation, it is the same as
# the one produced by run above
#
-send_gdb "next\n"
-gdb_expect {
- -re ".*$gdb_prompt$" { pass "go after array init line" }
- timeout { fail "go after array init line (timeout)" }
+gdb_test_multiple "next" "go after array init line" {
+ -re "source .*annota1.c.*$gdb_prompt$" {
+ pass "go after array init line"
+ }
}
@@ -184,12 +175,10 @@ gdb_expect {
# FIXME: annotate-value-begin and annotate-value-end not tested (the gdb output
# command would cause them to be used)
#
-send_gdb "print my_array\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n\r\n\032\032value-history-begin 1 -\r\n.*= \r\n\032\032value-history-value\r\n.\r\n\032\032array-section-begin 0 -\r\n1\r\n\032\032elt\r\n, 2\r\n\032\032elt\r\n, 3\r\n\032\032elt\r\n\r\n\032\032array-section-end\r\n.\r\n\r\n\032\032value-history-end\r\n$gdb_prompt$" \
- { pass "print array" }
- -re ".*$gdb_prompt$" { fail "print array" }
- timeout { fail "print array (timeout)" }
+gdb_test_multiple "print my_array" "print array" {
+ -re "\r\n\032\032post-prompt\r\n\r\n\032\032value-history-begin 1 -\r\n.*= \r\n\032\032value-history-value\r\n.\r\n\032\032array-section-begin 0 -\r\n1\r\n\032\032elt\r\n, 2\r\n\032\032elt\r\n, 3\r\n\032\032elt\r\n\r\n\032\032array-section-end\r\n.\r\n\r\n\032\032value-history-end\r\n$gdb_prompt$" {
+ pass "print array"
+ }
}
@@ -200,12 +189,10 @@ gdb_expect {
#
#exp_internal 1
-send_gdb "print non_existent_value\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n\r\n\032\032error-begin\r\nNo symbol \"non_existent_value\" in current context.\r\n\r\n\032\032error\r\n$gdb_prompt$" \
- { pass "print non_existent_value" }
- -re ".*$gdb_prompt$" { fail "print non_existent_value" }
- timeout { fail "print non_existent_value (timeout)" }
+gdb_test_multiple "print non_existent_value" "print non_existent_value" {
+ -re "\r\n\032\032post-prompt\r\n\r\n\032\032error-begin\r\nNo symbol \"non_existent_value\" in current context.\r\n\r\n\032\032error\r\n$gdb_prompt$" {
+ pass "print non_existent_value"
+ }
}
@@ -213,25 +200,22 @@ gdb_expect {
# break at signal handler. So that, once we are in the sig handler, if we do a bt
# we can test annotate-signal-handler-caller
#
-send_gdb "break handle_USR1\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex: file.*$srcfile, line.*\r\n$gdb_prompt$" \
- { pass "break handle_USR1" }
- -re ".*$gdb_prompt$" { fail "break handle_USR1" }
- timeout { fail "break handle_USR1 (timeout)" }
+gdb_test_multiple "break handle_USR1" "break handle_USR1" {
+ -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex: file.*$srcfile, line.*\r\n$gdb_prompt$" {
+ pass "break handle_USR1"
+ }
}
#
# break at printf. When we are stopped at printf, we can test
#
-send_gdb "break printf\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex.*$gdb_prompt$" \
- { pass "break printf" }
- -re "\r\n\032\032post-prompt\r\nwarning: Breakpoint address adjusted from $hex to $hex.\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex.*$gdb_prompt$" \
- { pass "break printf" }
- -re ".*$gdb_prompt$" { fail "break printf" }
- timeout { fail "break printf (timeout)" }
+gdb_test_multiple "break printf" "break printf" {
+ -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex.*$gdb_prompt$" {
+ pass "break printf"
+ }
+ -re "\r\n\032\032post-prompt\r\nwarning: Breakpoint address adjusted from $hex to $hex.\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex.*$gdb_prompt$" {
+ pass "break printf"
+ }
}
#
@@ -255,16 +239,17 @@ gdb_test_multiple "continue" "continue t
# annotate-frame-address-end
#
set pat_begin "\r\n\032\032post-prompt\r\n\r\n\032\032frame-begin 0 $hex\r\n.0 \r\n(\032\032frame-address\r\n$hex\r\n\032\032frame-address-end\r\n in \r\n)*\032\032frame-function-name\r\n.*printf(@.*)?\r\n\032\032frame-args\r\n \\(.*frame-end\r\n\r\n\032\032frame-begin 1 $hex\r\n.1 \r\n\032\032frame-address\r\n$hex\r\n\032\032frame-address-end\r\n in \r\n\032\032frame-function-name\r\nmain\r\n\032\032frame-args\r\n \\(\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n"
+
set pat_end "\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032frame-end\r\n(\r\n\032\032frame-begin .*\r\n\r\n\032\032frame-end\r\n)*$gdb_prompt$"
-send_gdb "backtrace\n"
-gdb_expect {
- -re "$pat_begin$escapedsrcfile$pat_end"
- { pass "backtrace from shlibrary" }
- -re "$pat_begin.*$srcfile$pat_end"
- { setup_xfail "*-*-*" 1270
- fail "backtrace from shlibrary" }
- -re ".*$gdb_prompt$" { fail "backtrace from shlibrary" }
- timeout { fail "backtrace from shlibrary (timeout)" }
+
+gdb_test_multiple "backtrace" "backtrace from shlibrary" {
+ -re "$pat_begin$escapedsrcfile$pat_end" {
+ pass "backtrace from shlibrary"
+ }
+ -re "$pat_begin.*$srcfile$pat_end" {
+ setup_xfail "*-*-*" 1270
+ fail "backtrace from shlibrary"
+ }
}
@@ -280,71 +265,60 @@ if [target_info exists gdb,nosignals] {
unsupported "send SIGUSR1"
unsupported "backtrace @ signal handler"
} else {
- send_gdb "signal SIGUSR1\n"
- gdb_expect {
- -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n${escapedsrcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
- { pass "send SIGUSR1" }
- -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*${srcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
- { setup_xfail "*-*-*" 1270
- fail "send SIGUSR1" }
- -re ".*$gdb_prompt$" { fail "send SIGUSR1" }
- timeout { fail "send SIGUSR1 (timeout)" }
+ gdb_test_multiple "signal SIGUSR1" "send SIGUSR1" {
+ -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n${escapedsrcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" {
+ pass "send SIGUSR1"
+ }
+ -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*${srcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" {
+ setup_xfail "*-*-*" 1270
+ fail "send SIGUSR1"
+ }
}
#
# test:
# annotate-signal-handler-caller
#
- send_gdb "backtrace\n"
- gdb_expect {
+ gdb_test_multiple "backtrace" "backtrace @ signal handler" {
-re "frame-begin 0 $hex\r\n#0.*frame-end.*frame-begin 1 $hex\r\n#1.*(\032\032signal-handler-caller\r\n.signal handler called.\r\n\r\n)+\032\032frame-end\r\n\r\n\032\032frame-begin 2 $hex\r\n#2.*(frame-begin 3 $hex\r\n#3.*)*frame-end.*$gdb_prompt$" {
pass "backtrace @ signal handler"
}
- -re ".*$gdb_prompt$" { fail "backtrace @ signal handler" }
- timeout { fail "backtrace @ signal handler (timeout)" }
}
}
#
# delete all the breakpoints
#
-send_gdb "delete 1\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" \
- { pass "delete bp 1" }
- -re ".*$gdb_prompt$" { fail "delete bp 1" }
- timeout { fail "delete bp 1 (timeout)" }
+gdb_test_multiple "delete 1" "delete bp 1" {
+ -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" {
+ pass "delete bp 1"
+ }
}
-send_gdb "delete 2\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" \
- { pass "delete bp 2" }
- -re ".*$gdb_prompt$" { fail "delete bp 2 " }
- timeout { fail "delete bp 2 (timeout)" }
+gdb_test_multiple "delete 2" "delete bp 2" {
+ -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" {
+ pass "delete bp 2"
+ }
}
-send_gdb "delete 3\n"
-gdb_expect {
- -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" \
- { pass "delete bp 3" }
- -re ".*$gdb_prompt$" { fail "delete bp 3" }
- timeout { fail "delete bp 3 (timeout)" }
+gdb_test_multiple "delete 3" "delete bp 3" {
+ -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" {
+ pass "delete bp 3"
+ }
}
#
# break at main, after value is initialized. This is in preparation
# to test the annotate output for the display command.
#
-send_gdb "break main\n"
-gdb_expect {
- -re "post-prompt.*\032\032breakpoints-invalid.*Breakpoint 4 at $hex: file ${escapedsrcfile}, line $main_line.*$gdb_prompt$" \
- { pass "break at 28" }
- -re "post-prompt.*\032\032breakpoints-invalid.*Breakpoint 4 at $hex: file .*${srcfile}, line $main_line.*$gdb_prompt$" \
- { setup_xfail "*-*-*" 1270
- fail "break at 28" }
- -re ".*$gdb_prompt$" { fail "break at 28" }
- timeout { fail "break at 28 (timeout)" }
+gdb_test_multiple "break main" "break at 28" {
+ -re "post-prompt.*\032\032breakpoints-invalid.*Breakpoint 4 at $hex: file ${escapedsrcfile}, line $main_line.*$gdb_prompt$" {
+ pass "break at 28"
+ }
+ -re "post-prompt.*\032\032breakpoints-invalid.*Breakpoint 4 at $hex: file .*${srcfile}, line $main_line.*$gdb_prompt$" {
+ setup_xfail "*-*-*" 1270
+ fail "break at 28"
+ }
}
#
@@ -357,12 +331,10 @@ gdb_expect {
# annotate-display-end
# FIXME: annotate-display-value not tested
#
-send_gdb "display value\n"
-gdb_expect {
- -re "post-prompt\r\n\r\n\032\032display-begin\r\n1\r\n\032\032display-number-end\r\n: \r\n\032\032display-format\r\n\r\n\032\032display-expression\r\nvalue\r\n\032\032display-expression-end\r\n = \r\n\032\032display-expression\r\n7\r\n\r\n\032\032display-end\r\n$gdb_prompt$" \
- { pass "set up display" }
- -re ".*$gdb_prompt$" { fail "set up display" }
- timeout { fail "set up display (timeout)" }
+gdb_test_multiple "display value" "set up display" {
+ -re "post-prompt\r\n\r\n\032\032display-begin\r\n1\r\n\032\032display-number-end\r\n: \r\n\032\032display-format\r\n\r\n\032\032display-expression\r\nvalue\r\n\032\032display-expression-end\r\n = \r\n\032\032display-expression\r\n7\r\n\r\n\032\032display-end\r\n$gdb_prompt$" {
+ pass "set up display"
+ }
}
@@ -388,49 +360,36 @@ gdb_expect {
# Test that breakpoints-invalid is issued once and only once for
# breakpoint ignore count changes, after annotation stopped.
#
-send_gdb "break 46\n"
-gdb_expect {
+gdb_test_multiple "break 46" "break at 46" {
-re "Breakpoint 5 at $hex: file .*$srcfile, line 46.*$gdb_prompt$" {
pass "break at 46"
}
- -re ".*$gdb_prompt$" { fail "break at 46" }
- timeout { fail "break at 46 (timeout)" }
}
-send_gdb "ignore 5 4\n"
-gdb_expect {
+gdb_test_multiple "ignore 5 4" "ignore 5 4" {
-re "Will ignore next 4 crossings of breakpoint 5.*$gdb_prompt$" {
pass "ignore 5 4"
}
- -re ".*$gdb_prompt$" { fail "ignore 5 4" }
- timeout { fail "ignore 5 4 (timeout)" }
}
-send_gdb "continue\n"
-gdb_expect {
+gdb_test_multiple "continue" "annotate ignore count change" {
-re ".*$srcfile:46:.*\032\032stopped\r\n\r\n\032\032breakpoints-invalid\r\n$gdb_prompt$" {
pass "annotate ignore count change"
}
- -re ".*$gdb_prompt$" { fail "annotate ignore count change" }
- timeout { fail "annotate ignore count change (timeout)" }
}
# check that ignore command is working, or the above can provide
# misleading assurance ...
-send_gdb "next\n"
-gdb_expect {
- -re "$gdb_prompt$" {}
- timeout { fail "next to exit loop" }
+gdb_test_multiple "next" "next to exit loop" {
+ -re "source .*annota1.c.*$gdb_prompt$" {
+ }
}
-send_gdb "next\n"
-gdb_expect {
+gdb_test_multiple "next" "breakpoint ignore count" {
-re ".*$srcfile:49:.*$gdb_prompt$" {
pass "breakpoint ignore count"
}
- -re ".*$gdb_prompt$" { fail "breakpoint ignore count" }
- timeout { fail "breakpoint ignore count (timeout)" }
}
#
@@ -456,12 +415,10 @@ if [target_info exists gdb,nosignals] {
unsupported "signal sent"
} else {
setup_xfail hppa*-*-hpux11*
- send_gdb "signal SIGTRAP\n"
- gdb_expect {
- -re ".*\032\032post-prompt\r\nContinuing with signal SIGTRAP.\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032signalled\r\n\r\nProgram terminated with signal \r\n\032\032signal-name\r\nSIGTRAP\r\n\032\032signal-name-end\r\n, \r\n\032\032signal-string\r\nTrace.breakpoint trap\r\n\032\032signal-string-end\r\n.\r\nThe program no longer exists.\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
- { pass "signal sent" }
- -re ".*$gdb_prompt$" { fail "signal sent" }
- timeout { fail "signal sent (timeout)" }
+ gdb_test_multiple "signal SIGTRAP" "signal sent" {
+ -re ".*\032\032post-prompt\r\nContinuing with signal SIGTRAP.\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032signalled\r\n\r\nProgram terminated with signal \r\n\032\032signal-name\r\nSIGTRAP\r\n\032\032signal-name-end\r\n, \r\n\032\032signal-string\r\nTrace.breakpoint trap\r\n\032\032signal-string-end\r\n.\r\nThe program no longer exists.\r\n\r\n\032\032stopped\r\n$gdb_prompt$" {
+ pass "signal sent"
+ }
}
}
@@ -503,29 +460,25 @@ proc thread_test {} {
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$" {}
+ gdb_test_multiple "set annotate 2" "" {
+ -re "set annotate 2\r\n$gdb_prompt$" {
+ }
}
- send_gdb "next 2\n"
- gdb_expect {
+ gdb_test_multiple "next 2" "new thread" {
-re ".*\032\032new-thread" {
- pass "new thread"
+ pass "new thread"
}
- timeout { fail "new thread (timeout)" }
}
}
}
proc thread_switch {} {
- send_gdb "thread 1\n"
- gdb_expect {
- -re ".*\032\032thread-changed" {
+ gdb_test_multiple "thread 1" "thread switch" {
+ -re ".*\032\032thread-changed" {
pass "thread switch"
- }
- timeout { fail "thread switch (timeout)" }
}
+ }
}
thread_test
Index: annota3.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/annota3.exp,v
retrieving revision 1.22
diff -u -p -r1.22 annota3.exp
--- annota3.exp 5 May 2010 18:06:57 -0000 1.22
+++ annota3.exp 24 May 2010 21:28:10 -0000
@@ -61,8 +61,7 @@ set main_line 32
# The commands we test here produce many lines of output; disable "press
# <return> to continue" prompts.
-send_gdb "set height 0\n"
-gdb_expect -re "$gdb_prompt $"
+gdb_test_no_output "set height 0"
#
# break at main
@@ -100,26 +99,18 @@ gdb_expect_list "annotation set at level
#
# if construct:
#
-send_gdb "if 1\n"
-gdb_expect {
+gdb_test_multiple "if 1" "start if construct" {
-re "^if 1\r\n\r\n\032\032post-prompt\r\n\r\n\032\032pre-commands\r\n >\r\n\032\032commands\r\n$" {
pass "start if construct"
}
- -re ".*\032\032commands\r\n" {
- fail "start if construct"
- }
- timeout { fail "start if construct (timeout)" }
}
-send_gdb "end\n"
-gdb_expect {
+
+gdb_test_multiple "end" "end if construct" {
-re "^end\r\n\r\n\032\032post-commands\r\n$gdb_prompt$" {
pass "end if construct"
}
- -re ".*$gdb_prompt$" {
- fail "end if construct"
- }
- timeout { fail "end if construct (timeout)" }
}
+
#
# info break:
#
Index: assign.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/assign.exp,v
retrieving revision 1.13
diff -u -p -r1.13 assign.exp
--- assign.exp 5 May 2010 18:06:57 -0000 1.13
+++ assign.exp 24 May 2010 21:28:10 -0000
@@ -57,385 +57,152 @@ if ![runto_main] then {
gdb_test "next" "return 0;" "continuing after dummy()"
-send_gdb "print v_int=57\n"
-gdb_expect {
- -re ".*57.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*57.*$gdb_prompt $" {
- pass "v_int=57"
- }
- -re ".*$gdb_prompt $" { fail "v_int=57" }
- timeout { fail "(timeout) v_int=57" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int=57" }
- timeout { fail "(timeout) v_int=57" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6"
-
-
-send_gdb "print v_int+=57\n"
-gdb_expect {
- -re ".*63.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*63.*$gdb_prompt $" {
- pass "v_int+=57"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=57" }
- timeout { fail "(timeout) v_int+=57" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=57" }
- timeout { fail "(timeout) v_int+=57" }
- }
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (2)"
-
-send_gdb "print v_int-=57\n"
-gdb_expect {
- -re ".*-51.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*-51.*$gdb_prompt $" {
- pass "v_int-=57"
- }
- -re ".*$gdb_prompt $" { fail "v_int-=57" }
- timeout { fail "(timeout) v_int-=57" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int-=57" }
- timeout { fail "(timeout) v_int-=57" }
- }
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (3)"
-
-send_gdb "print v_int*=5\n"
-gdb_expect {
- -re ".*30.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*30.*$gdb_prompt $" {
- pass "v_int*=5"
- }
- -re ".*$gdb_prompt $" { fail "v_int*=5" }
- timeout { fail "(timeout) v_int*=5" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int*=5" }
- timeout { fail "(timeout) v_int*=5" }
- }
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (4)"
-
-send_gdb "print v_int/=4\n"
-gdb_expect {
- -re ".*1.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*1.*$gdb_prompt $" {
- pass "v_int/=4"
- }
- -re ".*$gdb_prompt $" { fail "v_int/=4" }
- timeout { fail "(timeout) v_int/=4" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int/=4" }
- timeout { fail "(timeout) v_int/=4" }
- }
-
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (5)"
-
-send_gdb "print v_int%=4\n"
-gdb_expect {
- -re ".*2.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*2.*$gdb_prompt $" {
- pass "v_int%=4"
- }
- -re ".*$gdb_prompt $" { fail "v_int%=4" }
- timeout { fail "(timeout) v_int%=4" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int%=4" }
- timeout { fail "(timeout) v_int%=4" }
- }
-
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (6)"
-
-
-
-send_gdb "print v_int+=v_char\n"
-gdb_expect {
- -re ".*71.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*71.*$gdb_prompt $" {
- pass "v_int+=char"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_char" }
- timeout { fail "(timeout) v_int+=v_char" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_char" }
- timeout { fail "(timeout) v_int+=v_char" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (7)"
-
-
-
-send_gdb "print v_int+=v_signed_char\n"
-gdb_expect {
- -re ".*72.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*72.*$gdb_prompt $" {
- pass "v_int+=signed_char"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_char" }
- timeout { fail "(timeout) v_int+=v_signed_char" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_char" }
- timeout { fail "(timeout) v_int+=v_signed_char" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (8)"
-
-
-
-send_gdb "print v_int+=v_unsigned_char\n"
-gdb_expect {
- -re ".*73.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*73.*$gdb_prompt $" {
- pass "v_int+=unsigned_char"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_char" }
- timeout { fail "(timeout) v_int+=v_unsigned_char" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_char" }
- timeout { fail "(timeout) v_int+=v_unsigned_char" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (9)"
-
-
-
-send_gdb "print v_int+=v_short\n"
-gdb_expect {
- -re ".*9.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*9.*$gdb_prompt $" {
- pass "v_int+=short"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_short" }
- timeout { fail "(timeout) v_int+=v_short" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_short" }
- timeout { fail "(timeout) v_int+=v_short" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (10)"
-
-
-
-send_gdb "print v_int+=v_signed_short\n"
-gdb_expect {
- -re ".*10.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*10.*$gdb_prompt $" {
- pass "v_int+=signed_short"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_short" }
- timeout { fail "(timeout) v_int+=v_signed_short" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_short" }
- timeout { fail "(timeout) v_int+=v_signed_short" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (11)"
-
-
-
-send_gdb "print v_int+=v_unsigned_short\n"
-gdb_expect {
- -re ".*11.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*11.*$gdb_prompt $" {
- pass "v_int=+unsigned_short"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_short" }
- timeout { fail "(timeout) v_int+=v_unsigned_short" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_short" }
- timeout { fail "(timeout) v_int+=v_unsigned_short" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (12)"
-
-
-
-send_gdb "print v_int+=v_signed_int\n"
-gdb_expect {
- -re ".*13.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*13.*$gdb_prompt $" {
- pass "v_int+=signed_int"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_int" }
- timeout { fail "(timeout) v_int+=v_signed_int" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_int" }
- timeout { fail "(timeout) v_int+=v_signed_int" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (13)"
-
-
-
-send_gdb "print v_int+=v_unsigned_int\n"
-gdb_expect {
- -re ".*14.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*14.*$gdb_prompt $" {
- pass "v_int+=unsigned_int"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_int" }
- timeout { fail "(timeout) v_int+=v_unsigned_int" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_int" }
- timeout { fail "(timeout) v_int+=v_unsigned_int" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (14)"
-
-
-
-send_gdb "print v_int+=v_long\n"
-gdb_expect {
- -re ".*15.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*15.*$gdb_prompt $" {
- pass "v_int+=long"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_long" }
- timeout { fail "(timeout) v_int+=v_long" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_long" }
- timeout { fail "(timeout) v_int+=v_long" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (15)"
-
-
-
-send_gdb "print v_int+=v_signed_long\n"
-gdb_expect {
- -re ".*16.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*16.*$gdb_prompt $" {
- pass "v_int+=signed_long"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_long" }
- timeout { fail "(timeout) v_int+=v_signed_long" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_signed_long" }
- timeout { fail "(timeout) v_int+=v_signed_long" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (16)"
-
-
-send_gdb "print v_int+=v_unsigned_long\n"
-gdb_expect {
- -re ".*17.*$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*17.*$gdb_prompt $" {
- pass "v_int+=unsigned_long"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_long" }
- timeout { fail "(timeout) v_int+=v_unsigned_long" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_unsigned_long" }
- timeout { fail "(timeout) v_int+=v_unsigned_long" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (17)"
-
-
-send_gdb "print v_int+=v_float\n"
-gdb_expect {
- -re ".*106\r\n$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*106\r\n$gdb_prompt $" {
- pass "v_int+=v_float"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_float" }
- timeout { fail "(timeout) v_int+=v_float" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_float" }
- timeout { fail "(timeout) v_int+=v_float" }
- }
-
-
-gdb_test "set variable v_int = 6" "" "set v_int to 6 (18)"
-
-
-send_gdb "print v_int+=v_double\n"
-gdb_expect {
- -re ".*206\r\n$gdb_prompt $" {
- send_gdb "print v_int\n"
- gdb_expect {
- -re ".*206\r\n$gdb_prompt $" {
- pass "v_int+=double"
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_double" }
- timeout { fail "(timeout) v_int+=v_double" }
- }
- }
- -re ".*$gdb_prompt $" { fail "v_int+=v_double" }
- timeout { fail "(timeout) v_int+=v_double" }
- }
-
-
+gdb_test_multiple "print v_int=57" "v_int=57" {
+ -re " = 57.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 57" "v_int=57"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6"
+
+gdb_test_multiple "print v_int+=57" "v_int+=57" {
+ -re " = 63.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 63" "v_int+=57"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (2)"
+
+gdb_test_multiple "print v_int-=57" "v_int-=57" {
+ -re " = -51.*$gdb_prompt $" {
+ gdb_test "print v_int" " = -51" "v_int-=57"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (3)"
+
+gdb_test_multiple "print v_int*=5" "v_int*=5" {
+ -re " = 30.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 30" "v_int*=5"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (4)"
+
+gdb_test_multiple "print v_int/=4" "v_int/=4" {
+ -re " = 1.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 1" "v_int/=4"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (5)"
+
+gdb_test_multiple "print v_int%=4" "v_int%=4" {
+ -re " = 2.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 2" "v_int%=4"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (6)"
+
+gdb_test_multiple "print v_int+=v_char" "v_int+=char" {
+ -re " = 71.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 71" "v_int+=char"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (7)"
+
+gdb_test_multiple "print v_int+=v_signed_char" "v_int+=signed_char" {
+ -re " = 72.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 72" "v_int+=signed_char"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (8)"
+
+gdb_test_multiple "print v_int+=v_unsigned_char" "v_int+=unsigned_char" {
+ -re " = 73.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 73" "v_int+=unsigned_char"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (9)"
+
+gdb_test_multiple "print v_int+=v_short" "v_int+=short" {
+ -re " = 9.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 9" "v_int+=short"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (10)"
+
+gdb_test_multiple "print v_int+=v_signed_short" "v_int+=signed_short" {
+ -re " = 10.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 10" "v_int+=signed_short"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (11)"
+
+gdb_test_multiple "print v_int+=v_unsigned_short" "v_int=+unsigned_short" {
+ -re " = 11.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 11" "v_int=+unsigned_short"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (12)"
+
+gdb_test_multiple "print v_int+=v_signed_int" "v_int+=signed_int" {
+ -re " = 13.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 13" "v_int+=signed_int"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (13)"
+
+gdb_test_multiple "print v_int+=v_unsigned_int" "v_int+=unsigned_int" {
+ -re " = 14.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 14" "v_int+=unsigned_int"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (14)"
+
+gdb_test_multiple "print v_int+=v_long" "v_int+=long" {
+ -re " = 15.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 15" "v_int+=long"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (15)"
+
+gdb_test_multiple "print v_int+=v_signed_long" "v_int+=signed_long" {
+ -re " = 16.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 16" "v_int+=signed_long"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (16)"
+
+gdb_test_multiple "print v_int+=v_unsigned_long" "v_int+=unsigned_long" {
+ -re " = 17.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 17" "v_int+=unsigned_long"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (17)"
+
+gdb_test_multiple "print v_int+=v_float" "v_int+=v_float" {
+ -re " = 106.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 106" "v_int+=v_float"
+ }
+}
+
+gdb_test_no_output "set variable v_int = 6" "set v_int to 6 (18)"
+
+gdb_test_multiple "print v_int+=v_double" "v_int+=double" {
+ -re " = 206.*$gdb_prompt $" {
+ gdb_test "print v_int" " = 206" "v_int+=double"
+ }
+}
Index: attach.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/attach.exp,v
retrieving revision 1.29
diff -u -p -r1.29 attach.exp
--- attach.exp 5 May 2010 18:06:57 -0000 1.29
+++ attach.exp 24 May 2010 21:28:10 -0000
@@ -250,30 +250,11 @@ proc do_attach_tests {} {
# Verify that the modification really happened.
- send_gdb "tbreak 19\n"
- gdb_expect {
- -re "Temporary breakpoint .*at.*$srcfile, line 19.*$gdb_prompt $" {
- pass "after attach2, set tbreak postloop"
- }
- -re "$gdb_prompt $" {
- fail "after attach2, set tbreak postloop"
- }
- timeout {
- fail "(timeout) after attach2, set tbreak postloop"
- }
- }
- send_gdb "continue\n"
- gdb_expect {
- -re "main.*at.*$srcfile:19.*$gdb_prompt $" {
- pass "after attach2, reach tbreak postloop"
- }
- -re "$gdb_prompt $" {
- fail "after attach2, reach tbreak postloop"
- }
- timeout {
- fail "(timeout) after attach2, reach tbreak postloop"
- }
- }
+ gdb_test "tbreak 19" "Temporary breakpoint .*at.*$srcfile, line 19.*" \
+ "after attach2, set tbreak postloop"
+
+ gdb_test "continue" "main.*at.*$srcfile:19.*" \
+ "after attach2, reach tbreak postloop"
# Allow the test process to exit, to cleanup after ourselves.
Index: bitfields2.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/bitfields2.exp,v
retrieving revision 1.8
diff -u -p -r1.8 bitfields2.exp
--- bitfields2.exp 5 May 2010 18:06:57 -0000 1.8
+++ bitfields2.exp 24 May 2010 21:28:11 -0000
@@ -288,7 +288,7 @@ gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-send_gdb "set print sevenbit-strings\n" ; gdb_expect -re "$gdb_prompt $"
+gdb_test_no_output "set print sevenbit-strings"
runto_main
bitfield_uniqueness
Index: bitfields.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/bitfields.exp,v
retrieving revision 1.11
diff -u -p -r1.11 bitfields.exp
--- bitfields.exp 5 May 2010 18:06:57 -0000 1.11
+++ bitfields.exp 24 May 2010 21:28:11 -0000
@@ -197,8 +197,7 @@ proc bitfield_signedness {} {
# Determine if the target has signed bitfields so we can xfail the
# the signed bitfield tests if it doesn't.
- send_gdb "print i\n"
- gdb_expect {
+ gdb_test_multiple "print i" "determining signed-ness of bitfields" {
-re ".* = -256.*$gdb_prompt $" {
pass "determining signed-ness of bitfields"
}
@@ -255,7 +254,7 @@ gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-send_gdb "set print sevenbit-strings\n" ; gdb_expect -re "$gdb_prompt $"
+gdb_test_no_output "set print sevenbit-strings"
bitfield_uniqueness
if [istarget "mips-idt-*"] then {
Index: bitops.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/bitops.exp,v
retrieving revision 1.9
diff -u -p -r1.9 bitops.exp
--- bitops.exp 5 May 2010 18:06:57 -0000 1.9
+++ bitops.exp 24 May 2010 21:28:11 -0000
@@ -37,323 +37,80 @@ gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send_gdb "print !1\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of !1"
- }
- -re ".*$gdb_prompt $" { fail "print value of !1" }
- timeout { fail "(timeout) print value of !1" }
- }
-
-
-send_gdb "print !0\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
- pass "print value of !0"
- }
- -re ".*$gdb_prompt $" { fail "print value of !0" }
- timeout { fail "(timeout) print value of !0" }
- }
-
-
-send_gdb "print !100\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of !100"
- }
- -re ".*$gdb_prompt $" { fail "print value of !100" }
- timeout { fail "(timeout) print value of !100" }
- }
-
-
-send_gdb "print !1000\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of !1000"
- }
- -re ".*$gdb_prompt $" { fail "print value of !1000" }
- timeout { fail "(timeout) print value of !1000" }
- }
-
-
-send_gdb "print !10\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of !10"
- }
- -re ".*$gdb_prompt $" { fail "print value of !10" }
- timeout { fail "(timeout) print value of !10" }
- }
-
-
-send_gdb "print !2\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of !2 "
- }
- -re ".*$gdb_prompt $" { fail "print value of !2" }
- timeout { fail "(timeout) print value of !2" }
- }
-
-
-send_gdb "print 10 | 5\n"
-gdb_expect {
- -re ".\[0-9\]* = 15.*$gdb_prompt $" {
- pass "print value of 10 | 5"
- }
- -re ".*$gdb_prompt $" { fail "print value of 10 | 5" }
- timeout { fail "(timeout) print value of 10 | 5" }
- }
-
-
-send_gdb "print 10 & 5\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 10 & 5"
- }
- -re ".*$gdb_prompt $" { fail "print value of 10 & 5" }
- timeout { fail "(timeout) print value of 10 & 5" }
- }
-
-
-send_gdb "print 10 ^ 5\n"
-gdb_expect {
- -re ".\[0-9\]* = 15.*$gdb_prompt $" {
- pass "print value of 10 ^ 5"
- }
- -re ".*$gdb_prompt $" { fail "print value of 10 ^ 5" }
- timeout { fail "(timeout) print value of 10 ^ 5" }
- }
-
-
-send_gdb "print -!0\n"
-gdb_expect {
- -re ".\[0-9\]* = -1.*$gdb_prompt $" {
- pass "print value of -!0"
- }
- -re ".*$gdb_prompt $" { fail "print value of -!0" }
- timeout { fail "(timeout) print value of -!0" }
- }
-
-
-send_gdb "print ~-!0\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of ~-!0"
- }
- -re ".*$gdb_prompt $" { fail "print value of ~-!0" }
- timeout { fail "(timeout) print value of ~-!0" }
- }
-
-
-
-send_gdb "print 3 * 2 / 4.0 * 2.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 3.*$gdb_prompt $" {
- pass "print value of 3 * 2 / 4.0 * 2.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3 * 2 / 4.0 * 2.0" }
- timeout { fail "(timeout) print value of 3 * 2 / 4.0 * 2.0" }
- }
-
-
-send_gdb "print 8 << 2 >> 4\n"
-gdb_expect {
- -re ".\[0-9\]* = 2.*$gdb_prompt $" {
- pass "print value of 8 << 2 >> 4"
- }
- -re ".*$gdb_prompt $" { fail "print value of 8 << 2 >> 4" }
- timeout { fail "(timeout) print value of 8 << 2 >> 4" }
- }
-
-
-send_gdb "print -1 < 0 > 1\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of -1 < 0 > 1"
- }
- -re ".*$gdb_prompt $" { fail "print value of -1 < 0 > 1" }
- timeout { fail "(timeout) print value of -1 < 0 > 1" }
- }
-
-
-send_gdb "print 15 ^ 10 ^ 5 ^ 7\n"
-gdb_expect {
- -re ".\[0-9\]* = 7.*$gdb_prompt $" {
- pass "print value of 15 ^ 10 ^ 5 ^ 7"
- }
- -re ".*$gdb_prompt $" { fail "print value of 15 ^ 10 ^ 5 ^ 7" }
- timeout { fail "(timeout) print value of 15 ^ 10 ^ 5 ^ 7" }
- }
-
-
-send_gdb "print 3.5 < 4.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
- pass "print value of 3.5 < 4.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3.5 < 4.0" }
- timeout { fail "(timeout) print value of 3.5 < 4.0" }
- }
-
-
-send_gdb "print 3.5 < -4.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 3.5 < -4.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3.5 < -4.0" }
- timeout { fail "(timeout) print value of 3.5 < -4.0" }
- }
-
-
-send_gdb "print 2 > -3\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
- pass "print value of 2 > -3"
- }
- -re ".*$gdb_prompt $" { fail "print value of 2 > -3" }
- timeout { fail "(timeout) print value of 2 > -3" }
- }
-
-
-send_gdb "print -3>4\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of -3>4"
- }
- -re ".*$gdb_prompt $" { fail "print value of -3>4" }
- timeout { fail "(timeout) print value of -3>4" }
- }
-
-
-send_gdb "print (-3 > 4)\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of (-3 > 4)"
- }
- -re ".*$gdb_prompt $" { fail "print value of (-3 > 4)" }
- timeout { fail "(timeout) print value of (-3 > 4)" }
- }
-
-
-send_gdb "print 3>=2.5\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
- pass "print value of 3>=2.5"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3>=2.5" }
- timeout { fail "(timeout) print value of 3>=2.5" }
- }
-
-
-send_gdb "print 3>=4.5\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 3>=4.5"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3>=4.5" }
- timeout { fail "(timeout) print value of 3>=4.5" }
- }
-
-
-send_gdb "print 3==3.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
- pass "print value of 3==3.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3==3.0" }
- timeout { fail "(timeout) print value of 3==3.0" }
- }
-
-
-send_gdb "print 3==4.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 3==4.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3==4.0" }
- timeout { fail "(timeout) print value of 3==4.0" }
- }
-
-
-send_gdb "print 3!=3.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 3!=3.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3!=3.0" }
- timeout { fail "(timeout) print value of 3!=3.0" }
- }
-
-
-send_gdb "print 3!=5.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
- pass "print value of 3!=5.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 3!=5.0" }
- timeout { fail "(timeout) print value of 3!=5.0" }
- }
-
-
-send_gdb "print 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2"
- }
- -re ".*$gdb_prompt $" { fail "print value of 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2" }
- timeout { fail "(timeout) print value of 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2" }
- }
-
-
-send_gdb "print 1.0 || 0\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
+gdb_test "print !1" ".\[0-9\]* = 0" "print value of !1"
+
+gdb_test "print !0" ".\[0-9\]* = 1" "print value of !0"
+
+gdb_test "print !100" ".\[0-9\]* = 0" "print value of !100"
+
+gdb_test "print !1000" ".\[0-9\]* = 0" "print value of !1000"
+
+gdb_test "print !10" ".\[0-9\]* = 0" "print value of !10"
+
+gdb_test "print !2" ".\[0-9\]* = 0" "print value of !2 "
+
+gdb_test "print 10 | 5" ".\[0-9\]* = 15" "print value of 10 | 5"
+
+gdb_test "print 10 & 5" ".\[0-9\]* = 0" "print value of 10 & 5"
+
+gdb_test "print 10 ^ 5" ".\[0-9\]* = 15" "print value of 10 ^ 5"
+
+gdb_test "print -!0" ".\[0-9\]* = -1" "print value of -!0"
+
+gdb_test "print ~-!0" ".\[0-9\]* = 0" "print value of ~-!0"
+
+gdb_test "print 3 * 2 / 4.0 * 2.0" ".\[0-9\]* = 3" \
+ "print value of 3 * 2 / 4.0 * 2.0"
+
+gdb_test "print 8 << 2 >> 4" ".\[0-9\]* = 2" \
+ "print value of 8 << 2 >> 4"
+
+gdb_test "print -1 < 0 > 1" ".\[0-9\]* = 0" \
+ "print value of -1 < 0 > 1"
+
+gdb_test "print 15 ^ 10 ^ 5 ^ 7" ".\[0-9\]* = 7" \
+ "print value of 15 ^ 10 ^ 5 ^ 7"
+
+gdb_test "print 3.5 < 4.0" ".\[0-9\]* = 1" \
+ "print value of 3.5 < 4.0"
+
+gdb_test "print 3.5 < -4.0" ".\[0-9\]* = 0" \
+ "print value of 3.5 < -4.0"
+
+gdb_test "print 2 > -3" ".\[0-9\]* = 1" "print value of 2 > -3"
+
+gdb_test "print -3>4" ".\[0-9\]* = 0" "print value of -3>4"
+
+gdb_test "print (-3 > 4)" ".\[0-9\]* = 0" "print value of (-3 > 4)"
+
+gdb_test "print 3>=2.5" ".\[0-9\]* = 1" "print value of 3>=2.5"
+
+gdb_test "print 3>=4.5" ".\[0-9\]* = 0" "print value of 3>=4.5"
+
+gdb_test "print 3==3.0" ".\[0-9\]* = 1" "print value of 3==3.0"
+
+gdb_test "print 3==4.0" ".\[0-9\]* = 0" "print value of 3==4.0"
+
+gdb_test "print 3!=3.0" ".\[0-9\]* = 0" "print value of 3!=3.0"
+
+gdb_test "print 3!=5.0" ".\[0-9\]* = 1" "print value of 3!=5.0"
+
+gdb_test "print 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2" \
+ ".\[0-9\]* = 0" \
+ "print value of 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2"
+
+gdb_test "print 1.0 || 0" ".\[0-9\]* = 1" \
pass "print value of 1.0 || 0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 1.0 || 0" }
- timeout { fail "(timeout) print value of 1.0 || 0" }
- }
-
-
-send_gdb "print 0.0 || 1.0\n"
-gdb_expect {
- -re ".\[0-9\]* = 1.*$gdb_prompt $" {
- pass "print value of 0.0 || 1.0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 0.0 || 1.0" }
- timeout { fail "(timeout) print value of 0.0 || 1.0" }
- }
-
-
-send_gdb "print 0.0 || 0\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 0.0 || 0"
- }
- -re ".*$gdb_prompt $" { fail "print value of 0.0 || 0" }
- timeout { fail "(timeout) print value of 0.0 || 0" }
- }
-
-
-send_gdb "print 0 || 1 && 0 | 0 ^ 0 == 8\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 0 || 1 && 0 | 0 ^ 0 == 8"
- }
- -re ".*$gdb_prompt $" { fail "print value of 0 || 1 && 0 | 0 ^ 0 == 8" }
- timeout { fail "(timeout) print value of 0 || 1 && 0 | 0 ^ 0 == 8" }
- }
-
-
-send_gdb "print 0 == 8 > 128 >> 1 + 2 * 2\n"
-gdb_expect {
- -re ".\[0-9\]* = 0.*$gdb_prompt $" {
- pass "print value of 0 == 8 > 128 >> 1 + 2 * 2"
- }
- -re ".*$gdb_prompt $" { fail "print value of 0 == 8 > 128 >> 1 + 2 * 2" }
- timeout { fail "(timeout) print value of 0 == 8 > 128 >> 1 + 2 * 2" }
- }
+
+gdb_test "print 0.0 || 1.0" ".\[0-9\]* = 1" \
+ "print value of 0.0 || 1.0"
+
+gdb_test "print 0.0 || 0" ".\[0-9\]* = 0" \
+ "print value of 0.0 || 0"
+
+gdb_test "print 0 || 1 && 0 | 0 ^ 0 == 8" ".\[0-9\]* = 0" \
+ "print value of 0 || 1 && 0 | 0 ^ 0 == 8"
+
+gdb_test "print 0 == 8 > 128 >> 1 + 2 * 2" ".\[0-9\]* = 0" \
+ "print value of 0 == 8 > 128 >> 1 + 2 * 2"