-gdb_test "set variable x=10" "" "set variable x"
-gdb_test "set variable y=4" "" "set variable y"
-gdb_test "set variable z=2" "" "set variable z"
-
-
-
-# x y z
-# 10 4 2
-send_gdb "print x+y-z\n"
-gdb_expect {
- -re ".*12.*$gdb_prompt $" {
- pass "print value of x+y-z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x+y-z" }
- timeout { fail "(timeout) print value of x+y-z" }
- }
-
-# 10 4 2
-send_gdb "print x+y*z\n"
-gdb_expect {
- -re ".*18.*$gdb_prompt $" {
- pass "print value of x+y*z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x+y*z" }
- timeout { fail "(timeout) print value of x+y*z" }
- }
-
-
-gdb_test "set variable z=3" "" "set variable z"
-
-
-# 10 4 3
-send_gdb "print x+y%z\n"
-gdb_expect {
- -re ".*11.*$gdb_prompt $" {
- pass "print value of x+y%z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x+y%z" }
- timeout { fail "(timeout) print value of x+y%z" }
- }
-
-
-# 10 4 3
-send_gdb "print x+y/z\n"
-gdb_expect {
- -re ".*11.*$gdb_prompt $" {
- pass "print value of x+y/z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x+y/z" }
- timeout { fail "(timeout) print value of x+y/z" }
- }
-
-gdb_test "set variable z=2" "" " set variable z"
-
-
-# 10 4 2
-send_gdb "print x-y*z\n"
-gdb_expect {
- -re ".*2.*$gdb_prompt $" {
- pass "print value of x-y*z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x-y*z" }
- timeout { fail "(timeout) print value of x-y*z" }
- }
-
-# 10 4 2
-send_gdb "print x-y%z\n"
-gdb_expect {
- -re ".*10.*$gdb_prompt $" {
- pass "print value of x-y%z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x-y%z" }
- timeout { fail "(timeout) print value of x-y%z" }
- }
-
-
-# 10 4 2
-send_gdb "print x-y/z\n"
-gdb_expect {
- -re ".*8.*$gdb_prompt $" {
- pass "print value of x-y/z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x-y/z" }
- timeout { fail "(timeout) print value of x-y/z" }
- }
-
-# 10 4 2
-send_gdb "print x*y/z\n"
-gdb_expect {
- -re ".*20.*$gdb_prompt $" {
- pass "print value of x*y/z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x*y/z" }
- timeout { fail "(timeout) print value of x*y/z" }
- }
-
-gdb_test "set variable z=3" "" "set z to 3"
-
-# 10 4 3
-send_gdb "print x*y%z\n"
-gdb_expect {
- -re ".*1.*$gdb_prompt $" {
- pass "print value of x*y%z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x*y%z" }
- timeout { fail "(timeout) print value of x*y%z" }
- }
-
-# 10 4 3
-send_gdb "print x/y%z\n"
-gdb_expect {
- -re ".*2\r\n$gdb_prompt $" {
- pass "print value of x/y%z"
- }
- -re ".*$gdb_prompt $" { fail "print value of x/y%z" }
- timeout { fail "(timeout) print value of x/y%z" }
- }
-
-
-
-# test use of parenthesis to enforce different order of evaluation
-
-# 10 4 3
-send_gdb "print x-(y+z)\n"
-gdb_expect {
- -re ".*3\r\n$gdb_prompt $" {
- pass "print value of x-(y+z)"
- }
- -re ".*$gdb_prompt $" { fail "print value of x-(y+z)" }
- timeout { fail "(timeout) print value of x-(y+z)" }
- }
-