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
193
194
195
196
197
|
# check.exp
#
# This script searches the systemtap.examples directory for .meta files
# The .meta files contain information categorizing the script. The
# .meta files are composed of lines of tags. Each tag is followed by a
# value.
#
# To restrict scripts to test, set the CHECK_ONLY environment variable.
# For example, to only test the badname and fntimes scripts, run:
#
# make installcheck RUNTESTFLAGS="check.exp" CHECK_ONLY="badname fntimes"
#open the file and read in all the lines of data in FILE
#return a string with the data
proc get_meta_data { FILE } {
set meta_data ""
catch {
set fl [open "$FILE" RDONLY]
set meta_data [read -nonewline $fl]
close $fl
}
return $meta_data
}
#extract value for TAG from string META_DATA
#if there is no matching tag return ""
proc extract_tag { META_DATA TAG } {
set taglines ""
set value ""
set expr "^$TAG: \[^\r\n\]*"
regexp -line -all $expr $META_DATA taglines
set expr "^$TAG: "
regsub -line $expr $taglines "" value
verbose -log "meta taglines '$taglines' tag '$TAG' value '$value'"
return $value
}
proc run_command { test action command } {
#FIXME tcl says that single quotes not dealt with
if { $command != "" } then {
# use stress instead of sleep if time >= 1
if {[file executable /usr/bin/stress]} {
regsub {sleep ([1-9])} $command {mkdir /tmp/$$; cd /tmp/$$; timeout --kill=1 30 stress -c 4 -i 4 -m 4 --vm-bytes 32M -d 4 --hdd-bytes 32M -t \1} command
}
verbose -log "attempting command $command"
set res [catch {exec sh -c $command 2>@1} value]
verbose -log "OUT $value"
verbose -log "RC $res"
if { $res != 0 } { # allow failure for support
if { $action != "support" } { fail "$test $action" }
return $res
} else {
pass "$test $action"
return $res
}
} else {
untested "$test $action"
return 0
}
}
set src_examples [fullpath $srcdir/systemtap.examples]
if {[info exists env(CHECK_ONLY)]} {
set name_match "-false"
foreach file $env(CHECK_ONLY) {
set name_match "$name_match -o -name $file.meta"
}
set meta_files [lsort [eval exec find $src_examples -path "*.meta" $name_match]]
} else {
set meta_files [lsort [exec find $src_examples -path "*.meta"]]
}
set curdir [pwd]
verbose -log "SAVED PWD=$curdir"
foreach file $meta_files {
cd $curdir
verbose -log "PRETEST PWD=[pwd]"
set dir [file dirname $file]
set test [regsub {.*/testsuite/} $file ""]
set test [regsub {.meta} $test ""]
set meta_data [get_meta_data $file]
set test_support [extract_tag "$meta_data" "test_support"]
# Do this after get_meta_data, as $file/$srcdir may be relative,
# and become invalid after cd $dir.
cd $dir
verbose -log "TEST PWD=[pwd]"
# If the test has an associated tcl file, run it. More complicated
# feature testing can be done there.
set test_tcl_file [file tail ${test}.tcl]
if {[file exists $test_tcl_file]} {
verbose -log "sourcing $test_tcl_file for $test"
source $test_tcl_file
}
set command $test_support
set supported_p 1
if { $command != "" } { # need to test support
set res [run_command "$test" "support" $command]
if { $res != 0 } { set supported_p 0 }
}
set build_p 1
if { $supported_p == 1 } {
set test_check [extract_tag "$meta_data" "test_check"]
set command $test_check
set res [run_command "$test" "build" $command]
if { $res != 0 } { set build_p 0 }
} else {
untested "$test build"
continue
}
set test_installcheck [extract_tag "$meta_data" "test_installcheck"]
# The pass/fail logic too simple and fails for some examples
# FIXME would like to be able to run more complicated test code
if {[info procs installtest_p] != "" && [installtest_p]
&& $test_installcheck != "" } then {
if { $supported_p == 1 && $build_p == 1} {
set command $test_installcheck
run_command "$test" "run" $command
} else {
untested "$test run"
}
}
# Now run the same thing but with BPF
if {[bpf_p]} {
set test_check_bpf [extract_tag "$meta_data" "test_check_bpf"]
set test_installcheck_bpf [extract_tag "$meta_data" "test_installcheck_bpf"]
set build_bpf_p 1
if { $test_check_bpf != "" } {
if { $supported_p == 1 } {
set command $test_check_bpf
set res [run_command "$test" "build_bpf" $command]
if { $res != 0 } { set build_bpf_p 0 }
} else {
untested "$test build_bpf"
continue
}
}
if {[info procs installtest_p] != "" && [installtest_p]
&& $test_installcheck_bpf != "" } then {
if { $supported_p == 1 && $build_bpf_p == 1 } {
set command $test_installcheck
run_command "$test" "run_bpf" $command
} else {
untested "$test run_bpf"
}
}
}
# Now run the same thing but with Dyninst
if {[dyninst_p]} {
set test_check_dyninst [extract_tag "$meta_data" "test_check_dyninst"]
set test_installcheck_dyninst [extract_tag "$meta_data" "test_installcheck_dyninst"]
set build_dyninst_p 1
if { $test_check_dyninst != "" } {
if { $supported_p == 1 } {
set command $test_check_dyninst
set res [run_command "$test" "build_dyninst" $command]
if { $res != 0 } { set build_dyninst_p 0 }
} else {
untested "$test build_dyninst"
continue
}
}
if {[info procs installtest_p] != "" && [installtest_p]
&& $test_installcheck_dyninst != "" } then {
if { $supported_p == 1 && $build_dyninst_p == 1 } {
set command $test_installcheck
run_command "$test" "run_dyninst" $command
} else {
untested "$test run_dyninst"
}
}
}
# NB: Don't try to clean up; too dangerous & can error-out
# set output_type [extract_tag "$meta_data" "output"]
# if {$output_type == "file"} {
# regexp {\-o\s+([A-Za-z0-9_\-\.]+)} $command match outfile
# eval exec /bin/rm -f $dir/[glob -nocomplain $outfile*]
# }
}
# get back to starting point
cd $curdir
verbose -log "RESTORED PWD=[pwd]"
|
