blob: 501e171b1869e4135a6e674a26b5c0e6058ad058 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
# Copyright 1998-2023 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# This file was written by Michael Snyder (msnyder@cygnus.com)
load_lib "trace-support.exp"
standard_testfile actions.c
require gdb_trace_common_supports_arch
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
executable {debug nowarnings}] != "" } {
untested "failed to compile"
return -1
}
clean_restart
gdb_file_cmd $binfile
# define relative source line numbers:
# all subsequent line numbers are relative to this first one (baseline)
set baseline [gdb_find_recursion_test_baseline $srcfile]
if {$baseline == -1} {
fail "could not find gdb_recursion_test function"
return
}
set testline1 [expr $baseline + 4]
set testline2 [expr $baseline + 5]
set testline3 [expr $baseline + 6]
set testline4 [expr $baseline + 7]
set testline5 [expr $baseline + 8]
set testline6 [expr $baseline + 9]
#
# test save-trace command
#
# setup a set of tracepoints to save
gdb_delete_tracepoints
foreach x { 1 2 3 4 5 6 } {
set testline [expr \$testline$x]
set trcpt [gdb_gettpnum $testline]
set trcpt$x $trcpt
gdb_test "passcount $x" \
"Setting tracepoint $trcpt.* to $x" \
"set passcount for tracepoint $trcpt"
gdb_test_no_output "condition $trcpt $x - 1 == $x / 2" \
"set condition for tracepoint $trcpt"
gdb_trace_setactions "set actions for tracepoint $x" \
"" \
"collect q$x" "^$" \
"while-stepping $x" "^$" \
"collect q$x" "^$" \
"end" "^$"
}
gdb_test "ftrace fast_tracepoint_loc" \
"Fast tracepoint $decimal at $hex: file .*$srcfile, line $decimal.*" \
"set a fast tracepoint"
gdb_test_no_output "set default-collect gdb_char_test, gdb_long_test - 100" \
"set default-collect"
# Save tracepoint definitions to a file, at path SAVE_PATH.
proc gdb_save_tracepoints { save_path } {
set save_path_regexp [string_to_regexp $save_path]
remote_file host delete $save_path
gdb_test "save tracepoints $save_path" \
"Saved to file '$save_path_regexp'." \
"save tracepoint definitions"
}
# Load tracepoint definitions from a file, from path SAVE_PATH.
proc gdb_load_tracepoints { save_path } {
# Cleanup existing tracepoints/collections
gdb_delete_tracepoints
gdb_test_no_output "set default-collect" "clear default-collect"
gdb_test "info tracepoints" "No tracepoints." "delete tracepoints"
gdb_test "source $save_path" "Tracepoint \[0-9\]+ at .*" \
"read back saved tracepoints"
}
proc gdb_verify_tracepoints { testname } {
global gdb_prompt
set ws "\[\t \]+"
set nl "\[\r\n\]+"
set ourstate 1
set result "pass"
gdb_test_multiple "info tracepoints" "$testname" {
-re "\[0-9\]+\[\t \]+tracepoint\[\t \]+keep y\[\t \]+0x\[0-9a-fA-F\]+ in gdb_recursion_test\[^\r\n\]+\r\n\[ \t]+trace only if \[0-9\] - 1 == \[0-9\] / 2" {
# if { $expect_out(1,string) != $ourstate } {
# set result "fail"
# }
incr ourstate
exp_continue
}
-re "$gdb_prompt $" {
if { $ourstate >= 7 } {
set result "pass"
} else {
set result "fail"
}
}
default {
set result "fail"
}
}
$result $testname
gdb_test "show default-collect" \
"The list of expressions to collect by default is \"gdb_char_test, gdb_long_test - 100\"..*" \
"verify default-collect"
}
proc do_save_load_test { save_path } {
# Save current tracepoint definitions to a file
gdb_save_tracepoints $save_path
# Clear existing tracepoints and reload from file
gdb_load_tracepoints $save_path
# Check if they match the expected tracepoints
gdb_verify_tracepoints "verify recovered tracepoints"
}
gdb_verify_tracepoints "verify trace setup"
with_test_prefix "relative" {
set filepath [standard_output_file "savetrace-relative.tr"]
# This only works because the pwd is a prefix of the standard output
# directory. If this assumption becomes false, then this test needs to be
# changed (the relative path from [pwd] to the standard output directory
# will become a bit more complicated to compute).
if {[string first [pwd] $filepath] != 0} {
error "[pwd] is not a prefix of $filepath."
}
set filepath [string map "[pwd] ." $filepath]
do_save_load_test "$filepath"
}
with_test_prefix "absolute" {
do_save_load_test [standard_output_file "savetrace-absolute.tr"]
}
# invalid filename
# [deferred -- not sure what a good invalid filename would be]
# save-trace (file already exists)
# [expect it to clobber the old one]
# help save tracepoints
gdb_test "help save tracepoints" \
"Save current tracepoint definitions as a script.*" \
"verify help save tracepoints"
|
