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
|
set test "out2"
set tpath "$srcdir/$subdir/$test.stp"
set TEST_NAME "$subdir/$test"
if {![installtest_p]} { untested $TEST_NAME; return }
foreach runtime [get_runtime_list] {
set TEST_NAME "$subdir/$test"
if {$runtime != ""} {
lappend TEST_NAME "($runtime)"
}
if {[catch {exec mktemp -t staptestXXXXXX} tmpfile]} {
puts stderr "Failed to create temporary file: $tmpfile"
untested $TEST_NAME
continue
}
if {$runtime != ""} {
set rc [catch {exec stap --runtime=$runtime -o $tmpfile $tpath} res]
} else {
set rc [catch {exec stap -o $tmpfile $tpath} res]
}
if {$rc} {
fail $TEST_NAME
puts "$res"
catch {exec rm -f $tmpfile}
continue
}
if {[catch {exec cmp $tmpfile $srcdir/$subdir/large_output} res]} {
fail $TEST_NAME
puts "$res"
catch {exec rm -f $tmpfile}
continue
}
pass $TEST_NAME
catch {exec rm -f $tmpfile}
}
|
