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
|
set test_script "nd_sys.stp"
set test_module_name "nd_syscall"
set wd [pwd]
set test_module "${wd}/${test_module_name}.ko"
source $srcdir/$subdir/test.tcl
proc test_procedure {} {
global srcdir subdir test_script test_module test_module_name
set wd [pwd]
set flags ""
if {$srcdir == ""} {
set pattern "*.c"
} else {
set pattern "$srcdir/$subdir/*.c"
}
# To speed things up, go ahead and compile the test module once
# here, then just use it down in run_one_test(). The test script
# uses wildcards to cover every syscall and takes time to parse.
#
# Note that at one point we were passing '--skip-badvars' when
# compiling the syscall module. This tends to hide errors and not
# give errors when we expect them.
set script "$srcdir/$subdir/${test_script}"
set cmd "stap -p4 -m ${test_module_name} ${script}"
exec /bin/rm -f ${test_module}
# Remember any set value of SYSTEMTAP_DEBUGINFO_PATH
if {[info exists env(SYSTEMTAP_DEBUGINFO_PATH)]} {
set old_path $env(SYSTEMTAP_DEBUGINFO_PATH)
set restore_old_path 1
} else {
set restore_old_path 0
}
# Override SYSTEMTAP_DEBUGINFO_PATH to ensure no debuginfo could be used
set env(SYSTEMTAP_DEBUGINFO_PATH) ""
catch {eval exec $cmd} output
# Restore any previous value, otherwise unset it
if {$restore_old_path} {
set env(SYSTEMTAP_DEBUGINFO_PATH) $old_path
} else {
unset env(SYSTEMTAP_DEBUGINFO_PATH)
}
send_log "${output}\n"
if {[file exists ${test_module}]} {
pass "${script} compilation"
} else {
# If compiling the test module failed, there isn't much point
# in trying to run any of the real tests.
fail "${script} compilation"
return
}
for {set i 0} {$i < [arch_compile_flags]} {incr i} {
set flags [arch_compile_flag $i]
set arch [arch_compile_flag_name $i]
set arch_size [arch_compile_flag_bits $i]
verbose -log "i: $i flags: $flags arch: $arch size: $arch_size"
foreach filename [lsort [glob $pattern]] {
set testname [file tail [string range $filename 0 end-2]]
if {![installtest_p]} {
untested "${arch_size}-bit $testname"; continue
}
send_log "Testing ${arch_size}-bit ${testname} nd_syscall\n"
run_one_test $filename $flags ${arch_size} "nd_syscall"
}
}
# Cleeanup
exec /bin/rm -f ${test_module}
}
test_procedure
|
