blob: eb7304598ab0ea3cf320224551df55cad553fd5c (
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
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
|
#!/usr/bin/env wish
package require 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"
cleanup
}
proc bgerror {error} {
puts "ERROR: $error"
cleanup
}
trap {cleanup} SIGINT
set testname [lindex $argv 0]
if {$testname == ""} {
usage $argv0
exit
}
set filename [lindex $argv 1]
if {$filename == ""} {
set filename "${testname}.c"
set sys_prog "../sys.stp"
} else {
set sys_prog "[file dirname [file normalize $filename]]/sys.stp"
}
set cmd "stap -c ../${testname} ${sys_prog}"
# 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 staptestXXXXXX} dir]} {
puts stderr "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 "FAIL"
}
text .t1 -width 60 -height 20 -wrap none \
-xscrollcommand {.x1bar set} \
-yscrollcommand {.ybar set}
text .t2 -width 60 -height 20 -wrap none \
-xscrollcommand {.x2bar set} \
-yscrollcommand {.ybar set}
scrollbar .x1bar -orient horizontal -command {.t1 xview}
scrollbar .x2bar -orient horizontal -command {.t2 xview}
scrollbar .ybar -orient vertical -command [list bindyview [list .t1 .t2]]
proc bindyview {lists args} {
foreach l $lists {
eval {$l yview} $args
}
}
grid .t1 .t2 .ybar -sticky nsew
grid .x1bar .x2bar -sticky nsew
grid columnconfigure . 0 -weight 1
grid columnconfigure . 1 -weight 1
grid rowconfigure . 0 -weight 1
.t1 tag configure blue -foreground blue
.t2 tag configure blue -foreground blue
.t1 tag configure red -foreground red
.t2 tag configure red -foreground red
set i 0
foreach line [split $output "\n"] {
if {[regexp "${testname}: " $line]} {
if {[regexp $results($i) $line]} {
.t1 insert end ${line} blue
.t2 insert end $results($i) blue
incr i
if {$i >= $ind} {break}
} else {
.t1 insert end ${line}
}
.t1 insert end "\n"
.t2 insert end "\n"
}
}
for {} {$i < $ind} {incr i} {
.t2 insert end $results($i) red
.t1 insert end "\n"
.t2 insert end "\n"
}
bind . <Destroy> {cleanup}
|
