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
|
set syscall_dir ""
set current_dir ""
proc syscall_cleanup {} {
global syscall_dir current_dir
if {$current_dir != ""} {
cd $current_dir
set current_dir ""
}
if {$syscall_dir != ""} {
# puts "rm -rf $syscall_dir"
exec rm -rf $syscall_dir
set syscall_dir ""
}
}
proc syscall_cleanup_and_exit {} {
# puts "syscall_cleanup_and_exit"
syscall_cleanup
exit 0
}
proc bgerror {error} {
puts "ERROR: $error"
syscall_cleanup
}
trap {syscall_cleanup_and_exit} SIGINT
proc run_one_test {filename flags bits suite} {
global syscall_dir current_dir test_module
set testname [file tail [string range $filename 0 end-2]]
# execname() returns the first 15 chars of the test exe name.
set re_testname [string range $testname 0 14]
if {[catch {exec mktemp -d [pwd]/staptestXXXXXX} syscall_dir]} {
send_log "$bits-bit $testname $suite : Failed to create temporary directory: $syscall_dir"
untested "$bits-bit $testname $suite"
syscall_cleanup
return
}
set flags "$flags additional_flags=-lrt"
set res [target_compile $filename $syscall_dir/$testname executable $flags ]
if { $res != "" } {
send_log "$bits-bit $testname $suite : no corresponding devel environment found\n"
untested "$bits-bit $testname $suite"
syscall_cleanup
return
}
# Use -R here, in case a previous staprun hangs up or leaves the
# syscall.ko module in memory, which would block all subsequent
# invocations.
set cmd "staprun -R ${test_module} -c $syscall_dir/${testname}"
# Extract additional C flags needed to compile
set add_flags ""
foreach i $flags {
if [regexp "^additional_flags=" $i] {
regsub "^additional_flags=" $i "" tmp
append add_flags " $tmp"
}
}
# Extract the expected results
# Use the preprocessor so we can ifdef tests in and out
set ccmd "gcc -E -C -P $add_flags $filename"
# XXX: but note, this will expand all system headers too!
catch {eval exec $ccmd} output
set ind 0
foreach line [split $output "\n"] {
if {[regsub {//staptest//} $line {} line]} {
set line "^$re_testname: [string trimleft $line]"
# We need to quote all these metacharacters
regsub -all {\(} $line {\\(} line
regsub -all {\)} $line {\\)} line
regsub -all {\|} $line {\|} line
# + and * are metacharacters, but should always be used
# as metacharacters in the expressions, don't escape them.
#regsub -all {\+} $line {\\+} line
#regsub -all {\*} $line {\\*} line
# Turn '[[[[' and ']]]]' into '(' and ')' respectively.
# Because normally parens get quoted, this allows us to
# have non-quoted parens.
regsub -all {\[\[\[\[} $line {(} line
regsub -all {\]\]\]\]} $line {)} line
# Turn '!!!!' into '|'. Since normally pipe characters get
# quoted, this allows us to have non-quoted pipes.
regsub -all {!!!!} $line {|} line
regsub -all NNNN $line {[\-0-9]+} line
regsub -all XXXX $line {[x0-9a-fA-F]+} line
set results($ind) $line
incr ind
}
}
if {$ind == 0} {
# unsupported
syscall_cleanup
unsupported "$bits-bit $testname $suite not supported on this arch"
return
}
set current_dir [pwd]
cd $syscall_dir
catch {eval exec $cmd} output
set i 0
foreach line [split $output "\n"] {
# send_log "Comparing $results($i) against $line"
if {[regexp $results($i) $line]} {
incr i
if {$i >= $ind} {break}
}
}
if {$i >= $ind} {
# puts "PASS $testname"
pass "$bits-bit $testname $suite"
} else {
send_log "$testname FAILED. output of \"$cmd\" was:"
# add $output at end, just in case it was empty somehow; send_log "" is not happy
send_log "\n------------------------------------------\n$output"
send_log "\n------------------------------------------\n"
send_log "RESULTS: (\'*\' = MATCHED EXPECTED)\n"
set i 0
foreach line [split $output "\n"] {
if {[regexp "${re_testname}: " $line]} {
if {[regexp $results($i) $line]} {
send_log "*$line\n"
incr i
if {$i >= $ind} {break}
} else {
send_log "$line\n"
}
}
}
if {$i < $ind} {
send_log -- "--------- EXPECTED and NOT MATCHED ----------\n"
}
for {} {$i < $ind} {incr i} {
send_log "$results($i)\n"
}
fail "$bits-bit $testname $suite"
}
syscall_cleanup
return
}
|
