From: Michael Snyder <msnyder@vmware.com>
To: "gdb-patches@sourceware.org" <gdb-patches@sourceware.org>
Subject: [RFA] gdb.base/whatis-exp.exp: replace send_gdb with gdb_test
Date: Wed, 19 May 2010 18:56:00 -0000 [thread overview]
Message-ID: <4BF42C8D.2070002@vmware.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 78 bytes --]
Some clean-up by replacing old-style "send_gdb / gdb_expect" with
gdb_test.
[-- Attachment #2: whatis-exp.txt --]
[-- Type: text/plain, Size: 5498 bytes --]
2010-05-19 Michael Snyder <msnyder@vmware.com>
* gdb.base/whatis.exp: Replace send_gdb with gdb_test.
Index: gdb.base/whatis-exp.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/whatis-exp.exp,v
retrieving revision 1.13
diff -u -p -r1.13 whatis-exp.exp
--- gdb.base/whatis-exp.exp 5 May 2010 18:06:58 -0000 1.13
+++ gdb.base/whatis-exp.exp 19 May 2010 18:20:55 -0000
@@ -51,151 +51,27 @@ if ![runto_main] then {
#
gdb_test "set variable x=14" "" "set variable x=14"
-gdb_test "set variable y=2" "" "set variable y=2"
-gdb_test "set variable z=2" "" "set variable z=2"
-gdb_test "set variable w=3" "" "set variable w=3"
-
-send_gdb "print x\n"
-gdb_expect {
- -re ".*14.*$gdb_prompt $" {
- pass "print value of x"
- }
- -re ".*$gdb_prompt $" { fail "print value of x" }
- timeout { fail "(timeout) print value of x" }
- }
-
-
-send_gdb "print y\n"
-gdb_expect {
- -re ".*2.*$gdb_prompt $" {
- pass "print value of y"
- }
- -re ".*$gdb_prompt $" { fail "print value of y" }
- timeout { fail "(timeout) print value of y" }
- }
-
-send_gdb "print z\n"
-gdb_expect {
- -re ".*2.*$gdb_prompt $" {
- pass "print value of z"
- }
- -re ".*$gdb_prompt $" { fail "print value of z" }
- timeout { fail "(timeout) print value of z" }
- }
-
-send_gdb "print w\n"
-gdb_expect {
- -re ".*3.*$gdb_prompt $" {
- pass "print value of w"
- }
- -re ".*$gdb_prompt $" { fail "print value of w" }
- timeout { fail "(timeout) print value of w" }
- }
-
-
-
-send_gdb "whatis x+y\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x+y"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x+y" }
- timeout { fail "(timeout) whatis value of x+y" }
- }
-
-send_gdb "whatis x-y\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x-y"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x-y" }
- timeout { fail "(timeout) whatis value of x-y" }
- }
-
-send_gdb "whatis x*y\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x*y"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x*y" }
- timeout { fail "(timeout) whatis value of x*y" }
- }
-
-send_gdb "whatis x/y\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x/y"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x/y" }
- timeout { fail "(timeout) whatis value of x/y" }
- }
-
-send_gdb "whatis x%y\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x%y"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x%y" }
- timeout { fail "(timeout) whatis value of x%y" }
- }
-
-
-
-send_gdb "whatis x=y\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x=y"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x=y" }
- timeout { fail "(timeout) whatis value of x=y" }
- }
-
-
-send_gdb "whatis x+=2\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x+=2"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x+=2" }
- timeout { fail "(timeout) whatis value of x+=2" }
- }
-
-
-send_gdb "whatis ++x\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of ++x"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of ++x" }
- timeout { fail "(timeout) whatis value of ++x" }
- }
-
-send_gdb "whatis --x\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of --x"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of --x" }
- timeout { fail "(timeout) whatis value of --x" }
- }
-
-send_gdb "whatis x++\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x++"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x++" }
- timeout { fail "(timeout) whatis value of x++" }
- }
-
-send_gdb "whatis x--\n"
-gdb_expect {
- -re ".*type = int.*$gdb_prompt $" {
- pass "whatis value of x--"
- }
- -re ".*$gdb_prompt $" { fail "whatis value of x--" }
- timeout { fail "(timeout) whatis value of x--" }
- }
+gdb_test "set variable y=2" "" "set variable y=2"
+gdb_test "set variable z=2" "" "set variable z=2"
+gdb_test "set variable w=3" "" "set variable w=3"
+
+gdb_test "print x" " = 14" "print value of x"
+gdb_test "print y" " = 2" "print value of y"
+gdb_test "print z" " = 2" "print value of z"
+gdb_test "print w" " = 3" "print value of w"
+
+gdb_test "whatis x+y" "type = int" "whatis value of x+y"
+gdb_test "whatis x-y" "type = int" "whatis value of x-y"
+gdb_test "whatis x*y" "type = int" "whatis value of x*y"
+gdb_test "whatis x/y" "type = int" "whatis value of x/y"
+gdb_test "whatis x%y" "type = int" "whatis value of x%y"
+gdb_test "whatis x=y" "type = int" "whatis value of x=y"
+
+gdb_test "whatis x+=2" "type = int" "whatis value of x+=2"
+gdb_test "whatis ++x" "type = int" "whatis value of ++x"
+gdb_test "whatis --x" "type = int" "whatis value of --x"
+gdb_test "whatis x++" "type = int" "whatis value of x++"
+gdb_test "whatis x--" "type = int" "whatis value of x--"
gdb_exit
return 0
next reply other threads:[~2010-05-19 18:23 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-05-19 18:56 Michael Snyder [this message]
2010-05-19 18:57 ` Pedro Alves
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4BF42C8D.2070002@vmware.com \
--to=msnyder@vmware.com \
--cc=gdb-patches@sourceware.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox