1 # Copyright 1998, 1999, 2007, 2008, 2009, 2010, 2011
2 # Free Software Foundation, Inc.
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 3 of the License, or
7 # (at your option) any later version.
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program. If not, see <http://www.gnu.org/licenses/>.
17 # This file was written by Michael Snyder (msnyder@cygnus.com)
19 load_lib "trace-support.exp";
29 set testfile "actions"
30 set srcfile ${testfile}.c
31 set binfile $objdir/$subdir/deltrace
32 if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
33 executable {debug nowarnings}] != "" } {
37 gdb_reinitialize_dir $srcdir/$subdir
39 # If testing on a remote host, download the source file.
40 # remote_download host $srcdir/$subdir/$srcfile
44 # define relative source line numbers:
45 # all subsequent line numbers are relative to this first one (baseline)
46 set baseline [gdb_find_recursion_test_baseline $srcfile];
47 if { $baseline == -1 } then {
48 fail "Could not find gdb_recursion_test function"
51 set testline1 [expr $baseline + 4]
54 # test "delete tracepoints" command
57 # 3.1 delete tracepoints (all)
58 gdb_delete_tracepoints
59 gdb_test "trace gdb_c_test" "Tracepoint \[0-9\]+ at .*" "set tracepoint 1"
60 gdb_test "trace gdb_asm_test" "Tracepoint \[0-9\]+ at .*" "set tracepoint 2"
61 gdb_test "trace $testline1" "Tracepoint \[0-9\]+ at .*" "set tracepoint 3"
63 gdb_test "info tracepoints" \
64 "Num Type\[ \]+Disp Enb Address\[ \]+What.*
65 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+.
66 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_asm_test at .*$srcfile:\[0-9\]+.
67 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_recursion_test at .*$srcfile:\[0-9\]+" \
68 "3.1a: set three tracepoints"
70 gdb_test "delete tracepoints" \
72 "3.1b: delete all tracepoints" \
73 "Delete all tracepoints.*y or n.*$" \
77 # 3.2 delete tracepoint <n>
78 gdb_delete_tracepoints
79 set trcpt1 [gdb_gettpnum gdb_c_test];
80 set trcpt2 [gdb_gettpnum gdb_asm_test];
81 set trcpt3 [gdb_gettpnum $testline1];
82 if { $trcpt1 <= 0 || $trcpt2 <= 0 || $trcpt3 <= 0 } then {
83 fail "setting tracepoints"
87 gdb_test "info tracepoints" \
88 "Num Type\[ \]+Disp Enb Address\[ \]+What.*
89 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+.
90 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_asm_test at .*$srcfile:\[0-9\]+.
91 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_recursion_test at .*$srcfile:\[0-9\]+" \
92 "3.2a: set three tracepoints"
94 #gdb_test_no_output "delete tracepoint $trcpt1" ""
95 gdb_test_multiple "delete tracepoint $trcpt1" "3.2b: delete first tracepoint" {
96 -re "No tracepoint number.*$gdb_prompt $" {
97 fail "3.2b: delete first tracepoint"
99 -re ".*\[Ee\]rror.*$gdb_prompt $" {
100 fail "3.2b: delete first tracepoint"
102 -re "$gdb_prompt $" {
103 pass "3.2b: delete first tracepoint"
107 gdb_test "info tracepoints" \
108 "Num Type\[ \]+Disp Enb Address\[ \]+What.*
109 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_asm_test at .*$srcfile:\[0-9\]+.
110 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_recursion_test at .*$srcfile:\[0-9\]+" \
111 "3.2c: verify delete first tracepoint"
113 #gdb_test_no_output "delete tracepoint $trcpt2" ""
114 gdb_test_multiple "delete tracepoint $trcpt2" "3.2d: delete second tracepoint" {
115 -re "No tracepoint number.*$gdb_prompt $" {
116 fail "3.2d: delete second tracepoint"
118 -re ".*\[Ee\]rror.*$gdb_prompt $" {
119 fail "3.2d: delete second tracepoint"
121 -re "$gdb_prompt $" {
122 pass "3.2d: delete second tracepoint"
126 gdb_test "info tracepoints" \
127 "Num Type\[ \]+Disp Enb Address\[ \]+What.*
128 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_recursion_test at .*$srcfile:\[0-9\]+" \
129 "3.2e: verify delete second tracepoint"
131 #gdb_test_no_output "delete tracepoint $trcpt3" ""
132 gdb_test_multiple "delete tracepoint $trcpt3" "3.2f: delete third tracepoint" {
133 -re "No tracepoint number.*$gdb_prompt $" {
134 fail "3.2f: delete third tracepoint"
136 -re ".*\[Ee\]rror.*$gdb_prompt $" {
137 fail "3.2f: delete third tracepoint"
139 -re "$gdb_prompt $" {
140 pass "3.2f: delete third tracepoint"
144 # send_gdb "ARF! \\n\n"
145 gdb_test "info tracepoints" \
147 "3.2g: verify delete third tracepoint"
149 # 3.3 delete three tracepoints at once
150 gdb_delete_tracepoints
151 set trcpt1 [gdb_gettpnum gdb_c_test];
152 set trcpt2 [gdb_gettpnum gdb_asm_test];
153 set trcpt3 [gdb_gettpnum $testline1];
154 if { $trcpt1 <= 0 || $trcpt2 <= 0 || $trcpt3 <= 0 } then {
155 fail "setting tracepoints"
159 gdb_test "info tracepoints" \
160 "Num Type\[ \]+Disp Enb Address\[ \]+What.*
161 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+.
162 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_asm_test at .*$srcfile:\[0-9\]+.
163 \[0-9\]+\[\t \]+tracepoint keep y.* in gdb_recursion_test at .*$srcfile:\[0-9\]+" \
164 "3.3a: set three tracepoints"
166 #gdb_test_no_output "delete tracepoint $trcpt1 $trcpt2 $trcpt3" ""
167 gdb_test_multiple "delete tracepoint $trcpt1 $trcpt2 $trcpt3" \
168 "3.3b: delete three tracepoints" {
169 -re "No tracepoint number.*$gdb_prompt $" {
170 fail "3.3b: delete three tracepoints"
172 -re ".*\[Ee\]rror.*$gdb_prompt $" {
173 fail "3.3b: delete three tracepoints"
175 -re "$gdb_prompt $" {
176 pass "3.3b: delete three tracepoints"
180 gdb_test "info tracepoints" \
182 "3.3c: verify delete three tracepoints"
184 # 3.4 delete invalid tracepoint number
185 gdb_test "delete tracepoint [expr $trcpt2 + $trcpt3]" \
186 "No breakpoint number [expr $trcpt2 + $trcpt3]." \
187 "3.4: delete invalid tracepoint number"
189 # 3.5 delete tracepoint number zero
190 gdb_test "delete tracepoint 0" "bad breakpoint number at or near '0'" \
191 "3.5: delete tracepoint number zero"
193 # 3.6 help delete tracepoints
194 gdb_test "help delete tracepoints" \
195 "Delete specified tracepoints.*" \
196 "3.6: help delete tracepoints"