Differences From Artifact [b70c6b112e]:
- Executable file build/test/publish-tests — part of check-in [824e5d844d] at 2010-09-26 04:47:00 on branch trunk — Replaced publish-tests script with HTML'ified Tcl version (user: rkeene, size: 5644) [annotate] [blame] [check-ins using]
- Executable file
build/test/publish-tests.tcl
— part of check-in
[f8e23f8a39]
at
2010-09-26 04:46:55
on branch trunk
— Added new script to publish test results
Updated existing publish script to include failure count (user: rkeene, size: 5644) [annotate] [blame] [check-ins using]
To Artifact [343dd2d6d2]:
- Executable file
build/test/publish-tests
— part of check-in
[8563b223da]
at
2010-09-26 04:47:05
on branch trunk
— Updated to include build script in build log
Updated to include size of kit in published data (user: rkeene, size: 5904) [annotate] [blame] [check-ins using]
68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 ... 155 156 157 158 159 160 161 162 163 164 165 166 167 168 ... 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 |
return [join $desc {, }]
}
proc pretty_print_size {size} {
foreach unit [list "" K M G T P] {
if {$size < 1024} {
return "$size [string trim ${unit}B]"
}
set size [expr {${size} / 1024}]
}
}
##########################################################################
## MAIN BODY #############################################################
##########################################################################
................................................................................
puts $fd " <title>KitCreator Build Status</title>"
puts $fd " </head>"
puts $fd " <body>"
puts $fd " <table cellpadding=\"2\" border=\"1\">"
foreach key [lsort -dictionary [array names allkitinfo]] {
puts $fd " <tr>"
puts $fd " <th><u>Tclkit for [pretty_print_key $key]</u></th>"
puts $fd " <th>Status</th>"
puts $fd " <th>Log</th>"
puts $fd " <th>Failed Tests</th>"
puts $fd " </tr>"
foreach kitinfo_list $allkitinfo($key) {
puts $fd " <tr>"
unset -nocomplain kitinfo
................................................................................
}
lappend failedtestshtml "<small><a href=\"$test\">$testname</a></small>"
}
puts $fd " <td><a href=\"$kitinfo(file)\">[pretty_print_buildinfo $kitinfo(buildflags)]</a></td>"
puts $fd " <td bgcolor=\"$bgcolor\">$status</td>"
puts $fd " <td><small><a href=\"$kitinfo(buildfile)\">([pretty_print_size [file size [file join $WEBDIR $kitinfo(buildfile)]]])</a></small></td>"
puts $fd " <td>[join $failedtestshtml {, }]</td>"
puts $fd " </tr>"
}
}
puts $fd " </table>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
|
> > > > > > | > > |
68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 ... 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 ... 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 |
return [join $desc {, }]
}
proc pretty_print_size {size} {
foreach unit [list "" K M G T P] {
if {$size < 1024} {
if {$size < 10} {
set size [expr {round($size * 10) / 10.0}]
} else {
set size [expr {round($size)}]
}
return "$size [string trim ${unit}B]"
}
set size [expr {${size} / 1024.000}]
}
}
##########################################################################
## MAIN BODY #############################################################
##########################################################################
................................................................................
puts $fd " <title>KitCreator Build Status</title>"
puts $fd " </head>"
puts $fd " <body>"
puts $fd " <table cellpadding=\"2\" border=\"1\">"
foreach key [lsort -dictionary [array names allkitinfo]] {
puts $fd " <tr>"
puts $fd " <th><u>Tclkit for [pretty_print_key $key]</u></th>"
puts $fd " <th>Kit Size</th>"
puts $fd " <th>Status</th>"
puts $fd " <th>Log</th>"
puts $fd " <th>Failed Tests</th>"
puts $fd " </tr>"
foreach kitinfo_list $allkitinfo($key) {
puts $fd " <tr>"
unset -nocomplain kitinfo
................................................................................
}
lappend failedtestshtml "<small><a href=\"$test\">$testname</a></small>"
}
puts $fd " <td><a href=\"$kitinfo(file)\">[pretty_print_buildinfo $kitinfo(buildflags)]</a></td>"
puts $fd " <td>[pretty_print_size [file size [file join $WEBDIR $kitinfo(file)]]]</td>"
puts $fd " <td bgcolor=\"$bgcolor\">$status</td>"
puts $fd " <td><small><a href=\"$kitinfo(buildfile)\">([pretty_print_size [file size [file join $WEBDIR $kitinfo(buildfile)]]])</a></small></td>"
puts $fd " <td>[join $failedtestshtml {, }]</td>"
puts $fd " </tr>"
}
}
puts $fd " </table>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
|