blob: 8780930ee9b9b1a30e5976d5f1d3f21460bf8768 (
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
|
# stap_compile TEST_NAME flags script args
# - TEST_NAME is the name of the current test
# - compile indicates whether the script is supposed to compile
# - script is the script to compile
# Additional arguments are passed to stap as-is.
proc stap_compile { TEST_NAME compile script args } {
set cmd [concat stap {-v -p4 -e} $script $args]
verbose -log "running $cmd"
eval spawn $cmd
set compile_errors 0
expect {
-re {^Pass\ [1234]:[^\n\r]+\ in\ [^\n\r]+\ ms.\r\n} {exp_continue}
-re {^Pass\ [34]: using cached [^\r\n]+\r\n} {exp_continue}
-re "^WARNING" {exp_continue}
# pass-4 output
-re {^/[^\r\n]+.ko\r\n} {exp_continue}
-re "parse error" { incr compile_errors 1; exp_continue}
-re "compilation failed" {incr compile_errors 1; exp_continue}
-re "semantic error:" {incr compile_errors 1; exp_continue}
}
set res [wait -i $spawn_id]
catch close
set res [lindex $res 3]
if {($res == 0 && $compile_errors == 0)
|| ($res != 0 && $compile_errors > 0)} {
# Expected case. Ignore. Real pass/fail result will come below.
} else {
# stap result doesn't match errors seen.
if {$res == 0} {
fail "${TEST_NAME}_compile successfull, but got error messages"
} else {
fail "${TEST_NAME}_compile failed, but got no error messages"
}
}
# If we've got compile errors and the script was supposed to
# compile, fail.
if {$compile_errors > 0} {
if {$compile == 1} {
fail "$TEST_NAME compilation failed"
} else {
pass "$TEST_NAME compilation failed correctly"
}
} else {
if {$compile == 1} {
pass "$TEST_NAME compilation succeeded"
} else {
fail "$TEST_NAME compilation succeeded unexpectedly"
}
}
}
|
