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 ""
puts $fd " "
-puts $fd " KitCreator Build Status"
+puts $fd " KitCreator Build and Test Status"
puts $fd " "
puts $fd " "
+puts $fd " KitCreator Build and Test Status
"
+puts $fd " The following table represents the status of the test results from the KitCreator test suite.
"
puts $fd " "
foreach key [lsort -dictionary [array names allkitinfo]] {
puts $fd " "
puts $fd " | Tclkit for [pretty_print_key $key] | "
puts $fd " Kit Size | "
@@ -213,9 +218,10 @@
puts $fd "
"
}
}
puts $fd "
"
+puts $fd " Generated on [clock format [clock seconds]]
"
puts $fd " "
puts $fd ""
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"