Overview
| Comment: | Updated to invert the meaning of "threaded" when building CVS HEAD (which is threaded by default) in test suite (does not affect behaviour of KitCreator commands) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 6c627203b1f6ecd67da32dfdeab1806425488957 |
| User & Date: | rkeene on 2010-09-26 04:47:10 |
| Other Links: | manifest | tags |
Context
|
2010-09-26
| ||
| 04:47 | Updated to publish tests into an optional sub-directory check-in: 3887ad80a5 user: rkeene tags: trunk | |
| 04:47 | Updated to invert the meaning of "threaded" when building CVS HEAD (which is threaded by default) in test suite (does not affect behaviour of KitCreator commands) check-in: 6c627203b1 user: rkeene tags: trunk | |
| 04:47 |
Updated to include build script in build log
Updated to include size of kit in published data check-in: 8563b223da user: rkeene tags: trunk | |
Changes
Modified build/test/publish-tests from [343dd2d6d2] to [93c8b06bf5].
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 .. 51 52 53 54 55 56 57 58 59 60 61 62 63 64 ... 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 ... 211 212 213 214 215 216 217 218 219 220 221 |
}
return "Tcl $version for [string totitle $os] on $cpu"
}
proc pretty_print_buildinfo {buildinfo} {
set desc [list]
foreach tag [list min static notk statictk threaded zip] {
if {[lsearch -exact $buildinfo $tag] != -1} {
switch -- $tag {
"min" {
lappend desc "Minimally Built"
}
"static" {
lappend desc "Statically Linked"
................................................................................
}
"statictk" {
lappend desc "Tk linked to Kit"
}
"threaded" {
lappend desc "Threaded"
}
"zip" {
lappend desc "Kit Filesystem in Zip"
}
}
}
}
................................................................................
# Store kit information with all kits
set key [list $tclversion $kitos $kitcpu]
lappend allkitinfo($key) [array get kitinfo]
}
puts $fd "<html>"
puts $fd " <head>"
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 " <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
|
| > > > | > > > |
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 .. 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 ... 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 ... 216 217 218 219 220 221 222 223 224 225 226 227 |
}
return "Tcl $version for [string totitle $os] on $cpu"
}
proc pretty_print_buildinfo {buildinfo} {
set desc [list]
foreach tag [list min static notk statictk unthreaded threaded zip] {
if {[lsearch -exact $buildinfo $tag] != -1} {
switch -- $tag {
"min" {
lappend desc "Minimally Built"
}
"static" {
lappend desc "Statically Linked"
................................................................................
}
"statictk" {
lappend desc "Tk linked to Kit"
}
"threaded" {
lappend desc "Threaded"
}
"unthreaded" {
lappend desc "Without Threads"
}
"zip" {
lappend desc "Kit Filesystem in Zip"
}
}
}
}
................................................................................
# Store kit information with all kits
set key [list $tclversion $kitos $kitcpu]
lappend allkitinfo($key) [array get kitinfo]
}
puts $fd "<html>"
puts $fd " <head>"
puts $fd " <title>KitCreator Build and Test Status</title>"
puts $fd " </head>"
puts $fd " <body>"
puts $fd " <h1>KitCreator Build and Test Status</h1>"
puts $fd " <p>The following table represents the status of the test results from the KitCreator test suite.</p>"
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 " <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 " <p>Generated on [clock format [clock seconds]]</p>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
|
Modified build/test/test from [014dfa22c8] to [0cfadb5b00].
109 110 111 112 113 114 115 116 117 118 119 120 121 122 |
echo "${kit}: Unable to create StaticTk and NoTk, ignoring NoTk" >&2
fi
;;
esac
done
for version in ${VERSIONS}; do
# Create Tclkit
createdkit="tclkit-${version}"
outputname="${TESTDIR}/kits/tclkit-${version}-${kit}"
failoutputname="${TESTDIR}/kits/failed/tclkit-${version}-${kit}"
buildlog="${outputname}-build.log"
failbuildlog="${failoutputname}-build.log"
|
> > > > > > |
109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 |
echo "${kit}: Unable to create StaticTk and NoTk, ignoring NoTk" >&2
fi
;;
esac
done
for version in ${VERSIONS}; do
# Work around changes in default behaviour
if [ "${version}" = "cvs_HEAD" ]; then
kit="$(echo "${kit}" | sed 's@-threaded@-unthreaded@')"
args="$(echo "${args}" | sed 's@ --enable-threads@ --disable-threads@')"
fi
# Create Tclkit
createdkit="tclkit-${version}"
outputname="${TESTDIR}/kits/tclkit-${version}-${kit}"
failoutputname="${TESTDIR}/kits/failed/tclkit-${version}-${kit}"
buildlog="${outputname}-build.log"
failbuildlog="${failoutputname}-build.log"
|