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
|
# maxactive.exp
#
# Check to see if using the 'maxactive(N)' limit on return probes
# works, by seeing if skipped probes increases when using it.
if {![installtest_p]} { untested "MAXACTIVE"; return }
proc sleep_one_sec {} {
wait_n_secs 1;
return 0;
}
# Script1. For 1 second, probe the return of "vfs_read" and
# "do_select". See if we skip any probes.
set script1 {
global foo
probe kernel.function("vfs_read").return,
kernel.function("do_select").return { foo++ }
probe timer.ms(1000) { exit(); }
probe begin { log("systemtap starting probe") }
probe end { log("systemtap ending probe"); printf("foo = %d\n", foo) }
}
# Run script1 and save the number of skipped probes (which will most
# likely be 0).
stap_run "MAXACTIVE01" sleep_one_sec {foo = \d+\r\n} -e $script1
set skipped1 $skipped_probes
# Script2. For 1 second, probe the return of "vfs_read" and
# "do_select", with a limit of 1 probe active at a time. See if we
# skip any probes.
set script2 {
global foo
probe kernel.function("vfs_read").return.maxactive(1),
kernel.function("do_select").return.maxactive(1) { foo++ }
probe timer.ms(1000) { exit(); }
probe begin { log("systemtap starting probe") }
probe end { log("systemtap ending probe"); printf("foo = %d\n", foo) }
}
# Run script2 and save the number of skipped probes.
set output_string {foo = \d+\r\n(WARNING: Number of errors: 0, skipped probes: \d+\r\n)?}
stap_run "MAXACTIVE02" sleep_one_sec $output_string -e $script2
set skipped2 $skipped_probes
# If the number of skipped probes for script 1 is less than the number
# of skipped probes for script 2, we can assume that "maxactive(N)" is
# working.
#
# Note that this isn't 100% accurate based on the system load at the
# time of the scripts.
set test "MAXACTIVE03"
verbose -log "skipped1: $skipped1, skipped2: $skipped2\n"
if {$skipped1 <= $skipped2} {
pass $test
} else {
fail "$test ($skipped1 skipped probes > $skipped2 skipped probes)"
}
|
