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
|
#!/usr/bin/expect
set test "multisym"
set testpath "$srcdir/$subdir"
set script "$testpath/multisym.stp"
# Test that two functions with the same name in the symbol table are
# both found even when no DWARF information is available
# As the resolution of the probes occur during pass 2, we don't need to go
# all the way to pass 5
# We need the number of resolutions during pass 2.
set cmd [concat stap {-p 2 } $script]
set res [target_compile ${testpath}/${test}_baz.c ${test}_baz.o object ""]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "unable to compile ${test}_baz.c"
}
set res [target_compile ${testpath}/${test}_main.c ${test}_main.o object ""]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "unable to compile ${test}_main.c"
}
set res [target_compile "${test}_baz.o ${test}_main.o" ${test} executable ""]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "unable to compile ${test}"
}
eval spawn $cmd
set results 0
expect {
-re {process\([a-z\/\"]+\)*} { incr results 1; exp_continue}
}
catch close
set res [wait -i $spawn_id]
set res [lindex $res 3]
if {$res == 0 && $results == 4} {
pass "$test succeeded"
} else {
fail "$test failed"
}
|
