blob: 5bf125b9afc2d50b22b491956dc9130f4db0b707 (
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
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
|
load_lib site.exp
proc installtest_p {} {
global TOOL_OPTIONS
if {[info exists TOOL_OPTIONS] && [string match "*install*" $TOOL_OPTIONS]} {
return 1
} else { return 0 }
}
proc use_server_p {} {
global TOOL_OPTIONS
if {[info exists TOOL_OPTIONS] && [string match "*server*" $TOOL_OPTIONS]} {
return 1
} else { return 0 }
}
proc print_systemtap_version {} {
set version [exec /bin/uname -r]
set location "/boot/vmlinux-$version"
if {! [file exists $location]} {
# try the debuginfo location
set location "/usr/lib/debug/lib/modules/$version/vmlinux"
if {! [file exists $location]} { set location "" }
}
print "kernel location: $location"
print "kernel version: $version"
set location [exec /usr/bin/which stap]
regexp {version [^)]*} [exec stap -V 2>@ stdout] version
print "systemtap location: $location"
print "systemtap version: $version"
}
proc setup_systemtap_environment {} {
global srcdir prefix env server_pid net_path
# need an absolute SRCDIR for the top-level src/ tree
# XXX: or, we could change nearby uses of ${SRCDIR}/testsuite to ${SRCDIR}
if {[string index $srcdir 0] != "/"} then {
set env(SRCDIR) [exec pwd]/$srcdir/..
} else {
set env(SRCDIR) $srcdir/..
}
# Use a local systemtap directory and cache. Add user name so
# make check and sudo make check don't clobber each other.
set env(SYSTEMTAP_DIR) [exec pwd]/.systemtap-[exec whoami]
# Find or start a systemtap server, if requested.
if {[use_server_p]} then {
print "Testing using a systemtap server"
# A place for some temporary files and scripts.
set net_path [exec pwd]/net
exec /bin/mkdir -p $net_path
# Server management scripts and data are installed if this is an
# install test, otherwise there is some setup to do.
if {! [installtest_p]} then {
# Make sure the server management scripts and tools are on the $PATH.
set env(PATH) "$srcdir/..:[exec pwd]/..:$env(PATH)"
}
# Try to find or start the server.
set server_pid [exec stap-find-or-start-server]
if { "$server_pid" == "-1" } then {
print "Cannot find or start a systemtap server"
set server_pid 0
# TODO: How do we abort here?
} elseif { "$server_pid" == "0" } then {
print "A compatible systemtap server is already available"
} else {
print "Started a systemtap server as PID==$server_pid"
}
# Make a copy of 'stap-client' as 'stap' and make sure it's at the
# beginning of the $PATH. Do this after starting the server so that
# The server does not call this instance of 'stap'
if {[installtest_p]} then {
exec /bin/cp -p [exec which stap-client] $net_path/stap
} else {
exec /bin/cp -p $srcdir/../stap-client $net_path/stap
}
set env(PATH) "$net_path:$env(PATH)"
}
# PATH, SYSTEMTAP_TAPSET, SYSTEMTAP_RUNTIME, LD_LIBRARY_PATH are already set.
foreach var {PATH STAP SRCDIR SYSTEMTAP_TAPSET SYSTEMTAP_RUNTIME SYSTEMTAP_DIR LD_LIBRARY_PATH} {
if [info exists env($var)] {
verbose -log "env $var = $env($var)"
}
}
}
proc get_system_info {} {
global Host Snapshot Distro env
set Host [exec /bin/uname -a]
if [file exists ../SNAPSHOT] {
set Snapshot [exec /bin/cat ../SNAPSHOT]
} elseif [file exists $env(SRCDIR)/../SNAPSHOT] {
set Snapshot [exec /bin/cat $env(SRCDIR)/../SNAPSHOT]
} else {
regexp {version [^)]*} [exec stap -V 2>@ stdout] version
set Snapshot $version
}
set Distro "Linux"
if [file exists /etc/fedora-release] {set Distro [exec /bin/cat /etc/fedora-release]}
if [file exists /etc/redhat-release] {set Distro [exec /bin/cat /etc/redhat-release]}
if [file exists /etc/suse-release] {set Distro [exec /bin/cat /etc/suse-release]}
if [file exists /etc/debian_version] {set Distro [exec /bin/cat /etc/debian_version]}
}
setup_systemtap_environment
print_systemtap_version
get_system_info
proc systemtap_init {args} {}
proc systemtap_version {} {}
proc systemtap_exit {} {
global server_pid net_path
# Stop the stap server, if we started it.
if {[use_server_p]} then {
if { $server_pid != 0 } then {
print "Stopping the systemtap server with PID==$server_pid"
exec stap-stop-server $server_pid
}
# Remove the temporary stap script
exec /bin/rm -fr $net_path
}
}
proc stap_run_batch {args} {
verbose -log "starting $args"
# Many of our test cases use "#! stap ...". Since these lack
# /full/paths, they are not really executable. (We can't have
# /full/paths because the choice of systemtap interpreter is set
# at "make check" time.)
# So we cheat. If the file begins with "#! stap", we will spawn
# stap manually here (relying on $PATH). Otherwise, we presume
# the file properly executable.
set file [open [lindex $args 0] r]
set firstbits [gets $file]
close $file
if [regexp -line {\#! stap (.*)} $firstbits -> stap_args] {
verbose -log "spawn1 stap $stap_args [lindex $args 0]"
spawn stap $stap_args [lindex $args 0]
} else {
verbose -log "spawn2 $args"
spawn $args
}
expect {
-timeout -1
-re {[^\r]*\r} { verbose -log $expect_out(0,string); exp_continue }
eof { }
}
set results [wait]
verbose -log "wait results: $results"
if {[llength $results] >= 5} {
# Unexpected output. stap must have crashed
return -1
} else {
return [lindex $results 3]
}
}
proc as_root { command } {
set effective_pid [exec /usr/bin/id -u]
if {$effective_pid != 0} {
set command "sudo $command"
}
verbose -log "as_root $command"
set res [catch {eval exec $command} value]
verbose -log "OUT $value"
verbose -log "RC $res"
return $res
}
|
