cond-eval-mode.exp revision 1.5 
1#   Copyright 2012-2015 Free Software Foundation, Inc.
2
3# This program is free software; you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation; either version 3 of the License, or
6# (at your option) any later version.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11# GNU General Public License for more details.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program.  If not, see <http://www.gnu.org/licenses/>.
15
16# Test 'set breakpoint condition-evaluation' settings
17
18standard_testfile
19
20if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
21    return -1
22}
23
24if ![runto_main] then {
25    fail "Can't run to main"
26    return 0
27}
28
29set test_host "set breakpoint condition-evaluation host"
30set test_auto "set breakpoint condition-evaluation auto"
31set test_target "set breakpoint condition-evaluation target"
32
33gdb_test_no_output $test_host
34gdb_test_no_output $test_auto
35
36# If target-side condition evaluation is not supported, this warning will be
37# displayed.
38set warning "warning: Target does not support breakpoint condition evaluation.\r\nUsing host evaluation mode instead."
39
40gdb_test_multiple $test_target $test_target {
41    -re "$warning\r\n$gdb_prompt $" {
42	unsupported $test_target
43	return -1
44    }
45
46    -re "^$test_target\r\n$gdb_prompt $" {
47	pass $test_target
48    }
49}
50
51# We now know that the target supports target-side conditional
52# evaluation.  Now make sure we can force-disable the
53# ConditionalBreakpoints RSP feature.
54if [gdb_is_target_remote] {
55    gdb_test_no_output "set remote conditional-breakpoints-packet off"
56
57    gdb_test $test_target "$warning" \
58	"set breakpoint condition-evaluation target, with support disabled"
59
60    # Confirm we can re-enable it.
61    gdb_test_no_output "set remote conditional-breakpoints-packet on"
62    gdb_test_no_output $test_target "restore $test_target"
63}
64
65# Test setting a condition in a breakpoint.  BREAK_COMMAND is the
66# break/hwatch command to test.
67#
68proc test_break { break_command } {
69    global gdb_prompt
70
71    with_test_prefix "$break_command" {
72	delete_breakpoints
73
74	gdb_test "$break_command foo" "reakpoint.* at .*"
75
76	# A condition that evals true.
77	gdb_test "condition \$bpnum cond_global==0" ".*"
78
79	set can_do_cmd 0
80
81	set test "continue"
82	gdb_test_multiple $test $test {
83	    -re "You may have requested too many.*$gdb_prompt $" {
84		pass $test
85	    }
86	    -re "Breakpoint .*, foo .*$gdb_prompt $" {
87		pass $test
88		set can_do_cmd 1
89	    }
90	}
91
92	if { !$can_do_cmd } {
93	    unsupported "no target support"
94	    return
95	}
96
97	delete_breakpoints
98
99	gdb_test "$break_command foo" ".*reakpoint .* at .*"
100
101	# A condition that evals false.
102	gdb_test "condition \$bpnum cond_global==1" ".*"
103
104	gdb_test "b bar" "Breakpoint .* at .*"
105
106	gdb_test "continue" "Breakpoint .*, bar .*"
107    }
108}
109
110# Test setting conditions in watchpoints.  WATCH_COMMAND is the watch
111# command to test.
112#
113proc test_watch { watch_command } {
114    global gdb_prompt
115
116    with_test_prefix "$watch_command" {
117	if [target_info exists gdb,no_hardware_watchpoints] {
118	    unsupported "no target support"
119	    return
120	}
121
122	delete_breakpoints
123
124	gdb_test "$watch_command global" ".*atchpoint .*: global.*"
125
126	# A condition that evals true.
127	gdb_test "condition \$bpnum cond_global==0" ".*"
128
129	set can_do_cmd 0
130
131	set test "continue"
132	gdb_test_multiple $test $test {
133	    -re "You may have requested too many.*$gdb_prompt $" {
134		pass $test
135	    }
136	    -re "atchpoint .*: global.*$gdb_prompt $" {
137		pass $test
138		set can_do_cmd 1
139	    }
140	}
141
142	if { !$can_do_cmd } {
143	    unsupported "no target support"
144	    return
145	}
146
147	delete_breakpoints
148
149	gdb_test "$watch_command global" ".*atchpoint .*: global.*"
150
151	# A condition that evals false.
152	gdb_test "condition \$bpnum cond_global==1" ".*"
153
154	gdb_test "b bar" "Breakpoint .* at .*"
155
156	gdb_test "continue" "Breakpoint .*, bar .*"
157    }
158}
159
160foreach break_command { "break" "hbreak" } {
161    test_break $break_command
162}
163
164foreach watch_command { "watch" "rwatch" "awatch" } {
165    test_watch $watch_command
166}
167