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
|
set kvr [exec uname -r]
set kv [exec uname -r | cut -f1 -d-]
# a pattern bound to match
set kr {[23456]?[0-9]*}
# a pattern bound to mismatch
set krx {?noSuchKernel*}
set arch [exec uname -m]
# normalize arch; PR4186
set arch [normalize_arch $arch]
set ar "?[string range $arch 1 end-1]?"
set arx {?noSuchArch?}
# This test works so that if all the preprocessor conditionals
# work as expected, stap will indicate no error.
foreach runtime [get_runtime_list] {
set test "preprocessor basic ops"
if {$runtime != ""} {
lappend test "($runtime)"
set runtime_arg "--runtime=$runtime"
} else {
set runtime "kernel"
set runtime_arg ""
}
spawn stap -u -w -p2 ${runtime_arg} -e "probe never {}
%( kernel_v == \"$kv\" %? %: ERROR %)
%( kernel_v == \"$kr\" %? %: ERROR %)
%( kernel_v == \"$krx\" %? ERROR %: %)
%( kernel_v != \"$kv\" %? ERROR %: %)
%( kernel_v != \"$kr\" %? ERROR %: %)
%( kernel_v != \"$krx\" %? %: ERROR %)
%( kernel_v < \"9.9999\" %? %: ERROR %)
%( kernel_v <= \"9.9999\" %? %: ERROR %)
%( kernel_v > \"9.9999\" %? ERROR %: %)
%( kernel_v >= \"9.9999\" %? ERROR %: %)
%( kernel_vr == \"$kvr\" %? %: ERROR %)
%( kernel_vr == \"$kr\" %? %: ERROR %)
%( kernel_vr == \"$krx\" %? ERROR %: %)
%( kernel_vr != \"$kvr\" %? ERROR %: %)
%( kernel_vr != \"$kr\" %? ERROR %: %)
%( kernel_vr != \"$krx\" %? %: ERROR %)
%( kernel_vr < \"9.9999\" %? %: ERROR %)
%( kernel_vr <= \"9.9999\" %? %: ERROR %)
%( kernel_vr > \"9.9999\" %? ERROR %: %)
%( kernel_vr >= \"9.9999\" %? ERROR %: %)
%( arch == \"$arch\" %? %: ERROR %)
%( arch == \"$ar\" %? %: ERROR %)
%( arch == \"$arx\" %? ERROR %: %)
%( arch != \"$arch\" %? ERROR %: %)
%( arch != \"$ar\" %? ERROR %: %)
%( arch != \"$arx\" %? %: ERROR %)
%( runtime == \"$runtime\" %? %: ERROR %)
%( runtime != \"$runtime\" %? ERROR %: %)
%( runtime == \"noSuchRuntime\" %? ERROR %: %)
%( runtime != \"noSuchRuntime\" %? %: ERROR %)
"
set ok 0
expect {
"never" { incr ok }
eof { }
timeout { }
}
catch {close}; catch {wait}
if {$ok == 1} { pass $test } { fail $test }
}
|
