blob: cbcbe8170edba3d376725a465bea9528918170df (
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
|
if {![installtest_p]} {untested "OVERLOAD"; return}
set script {
global k
probe begin {
print("systemtap starting probe\n")
k["foo"] = 0
}
probe kernel.function("sys_read"), kernel.function("sys_write") {
k["foo"]++
}
probe end {
print("systemtap ending probe\n")
}
}
# stap_run TEST_NAME EXPECT_OVERLOAD
# TEST_NAME is name of the current test
# EXPECT_OVERLOAD lets us know to expect and probe overload or not
# Additional arguments are passed to stap as-is.
proc stap_run_overload { TEST_NAME EXPECT_OVERLOAD args } {
set cmd [concat {stap -v} $args]
eval spawn $cmd
expect {
-timeout 150
-re {^Pass\ [1234]: [^\r]+real\ ms\.\r\n} {exp_continue}
-re {^Pass\ ([34]): using cached [^\r]+\r\n} {exp_continue}
-re {^Pass 5: starting run.\r\n} {exp_continue}
-re {ERROR: probe overhead exceeded threshold\r\n} {
if {$EXPECT_OVERLOAD} {
pass "$TEST_NAME received expected overload"
} else {
fail "$TEST_NAME unexpected overload"
}
}
-re "^systemtap starting probe\r\n" {
exec kill -INT -[exp_pid]
expect {
-timeout 10
-re {^systemtap ending probe\r\n} {
if {$EXPECT_OVERLOAD} {
fail "$TEST_NAME didn't receive expected overload"
} else {
pass "$TEST_NAME didn't overload"
}
}
-re {ERROR: probe overhead exceeded threshold\r\n} {
if {$EXPECT_OVERLOAD} {
pass "$TEST_NAME received expected overload"
} else {
fail "$TEST_NAME unexpected overload"
}
}
}
}
-re "semantic error:" { fail "$TEST_NAME compilation" }
timeout { fail "$TEST_NAME startup (timeout)";
exec kill -INT -[exp_pid] }
eof { fail "$TEST_NAME startup (eof)" }
}
catch close
wait
}
# OVERLOAD1 tests to make sure normal operation doesn't receive an
# overload indication
set test "OVERLOAD1"
stap_run_overload $test 0 -u -e $script
# OVERLOAD2 is the same script, but we're adjusting the
# STP_OVERLOAD_INTERVAL and STP_OVERLOAD_THRESHOLD to low values so
# that we *will* get an overload.
set test "OVERLOAD2"
stap_run_overload $test 1 -u -DSTP_OVERLOAD_INTERVAL=1000LL -DSTP_OVERLOAD_THRESHOLD=100LL -e $script
# OVERLOAD3 is the same script with the same low STP_OVERLOAD_INTERVAL
# and STP_OVERLOAD_THRESHOLD values, but we're also specifying
# STP_NO_OVERLOAD, which should turn overload processing off. So,
# even though we have low overhead tuning values, we *shouldn't*
# overload.
set test "OVERLOAD3"
stap_run_overload $test 0 -u -DSTP_NO_OVERLOAD -DSTP_OVERLOAD_INTERVAL=1000LL -DSTP_OVERLOAD_THRESHOLD=100LL -e $script
|
