Differences From Artifact [ebc8777c64]:
- Executable file build/test/publish-tests — part of check-in [e1afa41765] at 2010-09-26 04:48:15 on branch trunk — Updated tests results page: Added legend Added header row for entire set Added new results "USABLE" and "NO TESTS" (user: rkeene, size: 8066) [annotate] [blame] [check-ins using]
To Artifact [a10ea41136]:
- Executable file
build/test/publish-tests
— part of check-in
[205ad8c75e]
at
2010-09-26 04:48:25
on branch trunk
— Updated to create tests log with PASS/FAIL
Added additional information to Locale test (user: rkeene, size: 8558) [annotate] [blame] [check-ins using]
︙ | ︙ | |||
136 137 138 139 140 141 142 | "*.log" - "*.ttml" - "*.html" - "*.desc" { continue } } # Derive what we can from the filename set buildfile "${shortfile}-build.log" | > > | > > > > > > > > > > > > > > > > > > > > > > | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 | "*.log" - "*.ttml" - "*.html" - "*.desc" { continue } } # Derive what we can from the filename set buildfile "${shortfile}-build.log" # Determine which tests passed/failed set failedtests [list] set passedtests [list] set testsfile "${file}-tests.log" if {[file exists $testsfile]} { set testfd [open $testsfile r] foreach line [split [read $testfd] \n] { set work [split $line :] set test [string trim [lindex $work 0]] set result [string trim [lindex $work 1]] switch -- $result { "PASS" { lappend passedtests "${shortfile}-${test}.log" } "FAIL" { lappend failedtests "${shortfile}-${test}.log" } } } close $testfd } # If this kit represents a failed build, set the failed tests to that set kitbuilt 1 if {[file tail [file dirname $file]] == "failed"} { set failedtests [list "${shortfile}-XX-build.log"] set passedtests [list] set kitbuilt 0 } ## Split the filename into parts and store each part unset -nocomplain kitos kitcpu set kitbuildinfo [split $shortfile -] set tclversion [lindex $kitbuildinfo 1] set kitos [lindex $kitbuildinfo 2] set kitcpu [lindex $kitbuildinfo 3] ### Store the remainder as a list of tags set kitbuildinfo [lsort -dictionary [lrange $kitbuildinfo 4 end]] # Generate array to describe this kit unset -nocomplain kitinfo set kitinfo(version) $tclversion set kitinfo(file) $shortfile set kitinfo(fullfile) $file set kitinfo(buildfile) $buildfile set kitinfo(failedtests) $failedtests set kitinfo(passedtests) $passedtests set kitinfo(buildflags) $kitbuildinfo set kitinfo(os) $kitos set kitinfo(cpu) $kitcpu set kitinfo(built) $kitbuilt # Store kit information with all kits set key [list $tclversion $kitos $kitcpu] |
︙ | ︙ | |||
200 201 202 203 204 205 206 | unset -nocomplain kitinfo array set kitinfo $kitinfo_list if {[llength $kitinfo(failedtests)] == 0} { set status ok # If we are cross-compiled, note that no tests were run | | | 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 | unset -nocomplain kitinfo array set kitinfo $kitinfo_list if {[llength $kitinfo(failedtests)] == 0} { set status ok # If we are cross-compiled, note that no tests were run if {[llength $kitinfo(passedtests)] == 0} { set status untested } } else { set status non-critical } |
︙ | ︙ |