1# This testcase is part of GDB, the GNU debugger. 2 3# Copyright 2012-2020 Free Software Foundation, Inc. 4# 5# This program is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 3 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18# Test integer expressions. 19 20load_lib "go.exp" 21 22if { [skip_go_tests] } { continue } 23if { [support_go_compile] == 0 } { continue } 24 25standard_testfile .go 26 27if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug go}] } { 28 return -1 29} 30 31set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] 32set bp_location2 [gdb_get_line_number "set breakpoint 2 here"] 33 34if { [go_runto_main] < 0 } { 35 untested "could not run to main" 36 return -1 37} 38 39if { [gdb_breakpoint ${srcfile}:${bp_location1}] } { 40 pass "setting breakpoint 1" 41} 42 43gdb_test "cont" "Breakpoint .*:${bp_location1}.*" "going to first breakpoint" 44 45gdb_test "print i" ".* = 0" "print i before assigned to 1" 46 47gdb_test "next" "i = 1" "next to 'i = 1' line" 48gdb_test "next" "j = 2" "next to 'j = 2' line" 49# At that point, 50# i should be equal to 1 51gdb_test "print i" " = 1" 52# but j should still be equal to zero 53gdb_test "print j" " = 0" "test j value before assignment" 54 55gdb_test "next" "k = 3" "next to 'k = 3' line" 56gdb_test "next" "l = k" "next to 'l = k' line" 57 58#j should be equal to 2 59gdb_test "print j" " = 2" 60# k should be equal to 3 61gdb_test "print k" " = 3" 62# But l should still be zero 63gdb_test "print l" " = 0" 64 65# Test addition 66gdb_test "print i + j" " = 3" 67gdb_test "print i + k" " = 4" 68gdb_test "print j + k" " = 5" 69gdb_test "print i + j + k" " = 6" 70 71# Test substraction 72gdb_test "print j - i" " = 1" 73gdb_test "print i - j" "= -1" 74gdb_test "print k -i -j" " = 0" 75gdb_test "print k -(i + j)" " = 0" 76 77# Test unany minus 78gdb_test "print -i" " = -1" 79gdb_test "print (-i)" " = -1" 80gdb_test "print -(i)" " = -1" 81gdb_test "print -(i+j)" " = -3" 82 83# Test boolean operators =, <>, <, <=, > and >= 84gdb_test "print i + 1 == j" " = true" 85gdb_test "print i + 1 != j" " = false" 86gdb_test "print i + 1 < j" " = false" 87gdb_test "print i + 1 <= j" " = true" 88gdb_test "print i + 1 > j" " = false" 89gdb_test "print i + 1 >= j" " = true" 90 91# Test multiplication 92gdb_test "print 2 * i" " = 2" 93gdb_test "print j * k" " = 6" 94gdb_test "print 3000*i" " = 3000" 95 96#Test div and mod operators 97gdb_test "print 35 / 2" " = 17" 98gdb_test "print 35 % 2" " = 1" 99 100# Test several operators together 101gdb_test "print i+10*j+100*k" " = 321" 102gdb_test " print (i + 5) * (j + 7)" " = 54" 103 104gdb_test "set var i = 2" " = 2" 105gdb_test "print i" " = 2" "testing new i value" 106 107if { [gdb_breakpoint ${srcfile}:${bp_location2}] } { 108 pass "setting breakpoint 2" 109} 110 111gdb_test "cont" \ 112 "Breakpoint .*:${bp_location2}.*" \ 113 "Going to second breakpoint" 114gdb_test "print i" \ 115 ".* = 5.*" \ 116 "value of i after assignment" 117