blob: 41934da417defb1dfcaf11deb8a8081db20afba9 (
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
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
|
#!/usr/bin/env expect
set dir ""
set current_dir ""
proc cleanup {} {
global dir current_dir
if {$current_dir != ""} {
cd $current_dir
if {$dir != ""} {exec rm -rf $dir}
set current_dir ""
}
exit 0
}
proc usage {progname} {
puts "Usage: $progname testname"
}
proc bgerror {error} {
puts "ERROR: $error"
cleanup
}
trap {cleanup} SIGINT
set testname [lindex $argv 0]
if {$testname == ""} {
usage $argv0
exit
}
set filename "${testname}.c"
set cmd "stap -c ../${testname} ../sys.stp"
# Extract the expected results
# Use the preprocessor so we can ifdef tests in and out
set ccmd "gcc -E -C -P $filename"
catch {eval exec $ccmd} output
set ind 0
foreach line [split $output "\n"] {
if {[regsub {//} $line {} line]} {
set line "$testname: [string trimleft $line]"
regsub -all {\(} $line {\\(} line
regsub -all {\)} $line {\\)} line
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} {
puts "UNSUPP"
cleanup
exit
}
if {[catch {exec mktemp -d staptestXXXXX} dir]} {
puts "Failed to create temporary directory: $dir"
cleanup
}
set current_dir [pwd]
cd $dir
catch {eval exec $cmd} output
set i 0
foreach line [split $output "\n"] {
if {[regexp $results($i) $line]} {
incr i
if {$i >= $ind} {break}
}
}
if {$i >= $ind} {
puts "PASS"
} else {
puts "$testname FAILED"
puts "RESULTS: (\'*\' = MATCHED EXPECTED)"
set i 0
foreach line [split $output "\n"] {
if {[regexp "${testname}: " $line]} {
if {[regexp $results($i) $line]} {
puts "*$line"
incr i
if {$i >= $ind} {break}
} else {
puts "$line"
}
}
}
if {$i < $ind} {
puts "--------- EXPECTED and NOT MATCHED ----------"
}
for {} {$i < $ind} {incr i} {
puts "$results($i)"
}
}
cleanup
|
