Index: build/test/publish-tests
==================================================================
--- build/test/publish-tests
+++ build/test/publish-tests
@@ -35,11 +35,11 @@
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] {
+ foreach tag [list min static notk statictk unthreaded threaded zip] {
if {[lsearch -exact $buildinfo $tag] != -1} {
switch -- $tag {
"min" {
lappend desc "Minimally Built"
}
@@ -53,10 +53,13 @@
lappend desc "Tk linked to Kit"
}
"threaded" {
lappend desc "Threaded"
}
+ "unthreaded" {
+ lappend desc "Without Threads"
+ }
"zip" {
lappend desc "Kit Filesystem in Zip"
}
}
}
@@ -156,13 +159,15 @@
lappend allkitinfo($key) [array get kitinfo]
}
puts $fd "<html>"
puts $fd " <head>"
-puts $fd " <title>KitCreator Build Status</title>"
+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>"
@@ -213,9 +218,10 @@
puts $fd " </tr>"
}
}
puts $fd " </table>"
+puts $fd " <p>Generated on [clock format [clock seconds]]</p>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
Index: build/test/test
==================================================================
--- build/test/test
+++ build/test/test
@@ -111,10 +111,16 @@
;;
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"