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
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
#!/bin/bash
# perf stat tests
# SPDX-License-Identifier: GPL-2.0
set -e
err=0
test_default_stat() {
echo "Basic stat command test"
if ! perf stat true 2>&1 | grep -E -q "Performance counter stats for 'true':"
then
echo "Basic stat command test [Failed]"
err=1
return
fi
echo "Basic stat command test [Success]"
}
test_stat_record_report() {
echo "stat record and report test"
if ! perf stat record -o - true | perf stat report -i - 2>&1 | \
grep -E -q "Performance counter stats for 'pipe':"
then
echo "stat record and report test [Failed]"
err=1
return
fi
echo "stat record and report test [Success]"
}
test_stat_record_script() {
echo "stat record and script test"
if ! perf stat record -o - true | perf script -i - 2>&1 | \
grep -E -q "CPU[[:space:]]+THREAD[[:space:]]+VAL[[:space:]]+ENA[[:space:]]+RUN[[:space:]]+TIME[[:space:]]+EVENT"
then
echo "stat record and script test [Failed]"
err=1
return
fi
echo "stat record and script test [Success]"
}
test_stat_repeat_weak_groups() {
echo "stat repeat weak groups test"
if ! perf stat -e '{cycles,cycles,cycles,cycles,cycles,cycles,cycles,cycles,cycles,cycles}' \
true 2>&1 | grep -q 'seconds time elapsed'
then
echo "stat repeat weak groups test [Skipped event parsing failed]"
return
fi
if ! perf stat -r2 -e '{cycles,cycles,cycles,cycles,cycles,cycles,cycles,cycles,cycles,cycles}:W' \
true > /dev/null 2>&1
then
echo "stat repeat weak groups test [Failed]"
err=1
return
fi
echo "stat repeat weak groups test [Success]"
}
test_topdown_groups() {
# Topdown events must be grouped with the slots event first. Test that
# parse-events reorders this.
echo "Topdown event group test"
if ! perf stat -e '{slots,topdown-retiring}' true > /dev/null 2>&1
then
echo "Topdown event group test [Skipped event parsing failed]"
return
fi
td_err=0
do_topdown_group_test() {
events=$1
failure=$2
if perf stat -e "$events" true 2>&1 | grep -E -q "<not supported>"
then
echo "Topdown event group test [Failed $failure for '$events']"
td_err=1
return
fi
}
do_topdown_group_test "{slots,topdown-retiring}" "events not supported"
do_topdown_group_test "{instructions,r400,r8000}" "raw format slots not reordered first"
filler_events=("instructions" "cycles"
"context-switches" "faults")
for ((i = 0; i < ${#filler_events[@]}; i+=2))
do
filler1=${filler_events[i]}
filler2=${filler_events[i+1]}
do_topdown_group_test "$filler1,topdown-retiring,slots" \
"slots not reordered first in no-group case"
do_topdown_group_test "slots,$filler1,topdown-retiring" \
"topdown metrics event not reordered in no-group case"
do_topdown_group_test "{$filler1,topdown-retiring,slots}" \
"slots not reordered first in single group case"
do_topdown_group_test "{$filler1,slots},topdown-retiring" \
"topdown metrics event not move into slots group"
do_topdown_group_test "topdown-retiring,{$filler1,slots}" \
"topdown metrics event not move into slots group last"
do_topdown_group_test "{$filler1,slots},{topdown-retiring}" \
"topdown metrics group not merge into slots group"
do_topdown_group_test "{topdown-retiring},{$filler1,slots}" \
"topdown metrics group not merge into slots group last"
do_topdown_group_test "{$filler1,slots},$filler2,topdown-retiring" \
"non-adjacent topdown metrics group not move into slots group"
do_topdown_group_test "$filler2,topdown-retiring,{$filler1,slots}" \
"non-adjacent topdown metrics group not move into slots group last"
do_topdown_group_test "{$filler1,slots},{$filler2,topdown-retiring}" \
"metrics group not merge into slots group"
do_topdown_group_test "{$filler1,topdown-retiring},{$filler2,slots}" \
"metrics group not merge into slots group last"
done
if test "$td_err" -eq 0
then
echo "Topdown event group test [Success]"
else
err="$td_err"
fi
}
test_topdown_weak_groups() {
# Weak groups break if the perf_event_open of multiple grouped events
# fails. Breaking a topdown group causes the events to fail. Test a very large
# grouping to see that the topdown events aren't broken out.
echo "Topdown weak groups test"
ok_grouping="{slots,topdown-bad-spec,topdown-be-bound,topdown-fe-bound,topdown-retiring},branch-instructions,branch-misses,bus-cycles,cache-misses,cache-references,cpu-cycles,instructions,mem-loads,mem-stores,ref-cycles,cache-misses,cache-references"
if ! perf stat --no-merge -e "$ok_grouping" true > /dev/null 2>&1
then
echo "Topdown weak groups test [Skipped event parsing failed]"
return
fi
group_needs_break="{slots,topdown-bad-spec,topdown-be-bound,topdown-fe-bound,topdown-retiring,branch-instructions,branch-misses,bus-cycles,cache-misses,cache-references,cpu-cycles,instructions,mem-loads,mem-stores,ref-cycles,cache-misses,cache-references}:W"
if perf stat --no-merge -e "$group_needs_break" true 2>&1 | grep -E -q "<not supported>"
then
echo "Topdown weak groups test [Failed events not supported]"
err=1
return
fi
echo "Topdown weak groups test [Success]"
}
test_cputype() {
# Test --cputype argument.
echo "cputype test"
# Bogus PMU should fail.
if perf stat --cputype="123" -e instructions true > /dev/null 2>&1
then
echo "cputype test [Bogus PMU didn't fail]"
err=1
return
fi
# Find a known PMU for cputype.
pmu=""
devs="/sys/bus/event_source/devices"
for i in $devs/cpu $devs/cpu_atom $devs/armv8_pmuv3_0 $devs/armv8_cortex_*
do
i_base=$(basename "$i")
if test -d "$i"
then
pmu="$i_base"
break
fi
if perf stat -e "$i_base/instructions/" true > /dev/null 2>&1
then
pmu="$i_base"
break
fi
done
if test "x$pmu" = "x"
then
echo "cputype test [Skipped known PMU not found]"
return
fi
# Test running with cputype produces output.
if ! perf stat --cputype="$pmu" -e instructions true 2>&1 | grep -E -q "instructions"
then
echo "cputype test [Failed count missed with given filter]"
err=1
return
fi
echo "cputype test [Success]"
}
test_hybrid() {
# Test the default stat command on hybrid devices opens one cycles event for
# each CPU type.
echo "hybrid test"
# Count the number of core PMUs, assume minimum of 1
pmus=$(ls /sys/bus/event_source/devices/*/cpus 2>/dev/null | wc -l)
if [ "$pmus" -lt 1 ]
then
pmus=1
fi
# Run default Perf stat
cycles_events=$(perf stat -- true 2>&1 | grep -E "/cycles/[uH]*| cycles[:uH]* " -c)
# The expectation is that default output will have a cycles events on each
# hybrid PMU. In situations with no cycles PMU events, like virtualized, this
# can fall back to task-clock and so the end count may be 0. Fail if neither
# condition holds.
if [ "$pmus" -ne "$cycles_events" ] && [ "0" -ne "$cycles_events" ]
then
echo "hybrid test [Found $pmus PMUs but $cycles_events cycles events. Failed]"
err=1
return
fi
echo "hybrid test [Success]"
}
test_default_stat
test_stat_record_report
test_stat_record_script
test_stat_repeat_weak_groups
test_topdown_groups
test_topdown_weak_groups
test_cputype
test_hybrid
exit $err
|
