diff options
| author | J.T. Conklin <jtc@acorntoolworks.com> | 1994-07-19 22:19:25 +0000 |
|---|---|---|
| committer | J.T. Conklin <jtc@acorntoolworks.com> | 1994-07-19 22:19:25 +0000 |
| commit | c5ea7f99a46a79b864923353cbaedc4156ba9a58 (patch) | |
| tree | 3ffb3981bbfdee33deacdf5f18ab5c33a75a3d86 /gdb/testsuite/gdb.base/bitfields.exp | |
| parent | 3236e9849d2d5366489fabef63f82f21d07574a9 (diff) | |
| download | gdb-c5ea7f99a46a79b864923353cbaedc4156ba9a58.zip gdb-c5ea7f99a46a79b864923353cbaedc4156ba9a58.tar.gz gdb-c5ea7f99a46a79b864923353cbaedc4156ba9a58.tar.bz2 | |
* gdb.base/bitfields.exp: Use gdb_run_cmd to start program.
Diffstat (limited to 'gdb/testsuite/gdb.base/bitfields.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/bitfields.exp | 36 |
1 files changed, 12 insertions, 24 deletions
diff --git a/gdb/testsuite/gdb.base/bitfields.exp b/gdb/testsuite/gdb.base/bitfields.exp index 94ef01b..9763a37 100644 --- a/gdb/testsuite/gdb.base/bitfields.exp +++ b/gdb/testsuite/gdb.base/bitfields.exp @@ -52,15 +52,12 @@ proc bitfield_uniqueness {} { return } - send "run\n" - expect { - -re "The program .* has been started already.*y or n. $" { - send "y\n" - exp_continue - } + expect_after { -re "Starting.*Break.*break1 \[)(\]+ at .*$srcfile:$decimal.*$prompt $" {} timeout { fail "running to break1" ; return } } + gdb_run_cmd + expect_after; if [gdb_test "print flags" ".*uc = 1 .*, s1 = 0, u1 = 0, s2 = 0, u2 = 0, s3 = 0, u3 = 0, s9 = 0, u9 = 0, sc = 0" ""] { fail "bitfield uniqueness (uc)" @@ -166,15 +163,12 @@ proc bitfield_containment {} { return } - send "run\n" - expect { - -re "The program .* has been started already.*y or n. $" { - send "y\n" - exp_continue - } + expect_after { -re "Starting.*Break.*break2 \[)(\]+ at .*$srcfile:$decimal.*$prompt $" {} timeout { fail "running to break2" ; return } } + gdb_run_cmd + expect_after; if [gdb_test "print/x flags" ".*uc = 0xff, s1 = 0x0, u1 = 0x1, s2 = 0x0, u2 = 0x3, s3 = 0x0, u3 = 0x7, s9 = 0x0, u9 = 0x1ff, sc = 0x0" ""] { fail "bitfield containment" @@ -218,15 +212,12 @@ proc bitfield_unsignedness {} { return } - send "run\n" - expect { - -re "The program .* has been started already.*y or n. $" { - send "y\n" - exp_continue - } + expect_after { -re "Starting.*Break.*break3 \[)(\]+ at .*$srcfile:$decimal.*$prompt $" {} timeout { fail "running to break3" ; return } } + gdb_run_cmd + expect_after; if [gdb_test "print flags" ".*uc = 0 .*, s1 = 0, u1 = 1, s2 = 0, u2 = 3, s3 = 0, u3 = 7, s9 = 0, u9 = 511, sc = 0" "" ] { fail "unsigned bitfield ranges" @@ -257,15 +248,12 @@ proc bitfield_signedness {} { return } - send "run\n" - expect { - -re "The program .* has been started already.*y or n. $" { - send "y\n" - exp_continue - } + expect_after { -re "Starting.*Break.*break4 \[)(\]+ at .*$srcfile:$decimal.*$prompt $" {} timeout { fail "running to break4" ; return } } + gdb_run_cmd + expect_after; if [gdb_test "print flags" ".*uc = 0 .*, s1 = 0, u1 = 0, s2 = 1, u2 = 0, s3 = 3, u3 = 0, s9 = 255, u9 = 0, sc = 0" ""] { fail "signed bitfields, max positive values" |