blob: f677da4195c550f5f291768093223ef00d61f261 (
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
|
load_lib site.exp
proc installtest_p {} {
global TOOL_OPTIONS
if {[info exists TOOL_OPTIONS] && ($TOOL_OPTIONS == "install")} {
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
# 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
set env(SYSTEMTAP_DIR) [exec pwd]/.systemtap
# 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 {
set Snapshot "unknown"
}
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 {} {}
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"
}
set res [catch {eval exec $command} value]
return $res
}
|
