Overview
Comment: | Updated to include build script in build log
Updated to include size of kit in published data |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8563b223da6164eeafddd7f1bd105b62 |
User & Date: | rkeene on 2010-09-26 04:47:05 |
Other Links: | manifest | tags |
Context
2010-09-26
| ||
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 | |
04:47 | Replaced publish-tests script with HTML'ified Tcl version check-in: 824e5d844d user: rkeene tags: trunk | |
Changes
Modified build/test/publish-tests from [b70c6b112e] to [343dd2d6d2].
︙ | ︙ | |||
68 69 70 71 72 73 74 75 76 77 | 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]" } | > > > > > > | | 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | 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 ############################################################# ########################################################################## |
︙ | ︙ | |||
155 156 157 158 159 160 161 162 163 164 165 166 167 168 | 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 | > | 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 | 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 |
︙ | ︙ | |||
195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 | } 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 | > | 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 | } 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 |
Modified build/test/test from [88b3d324b1] to [014dfa22c8].
︙ | ︙ | |||
128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 | failed="${failed} ${version}/${kit}-build" continue fi echo "Creating Tclkit ${version}/${kit}..." if [ "${notk}" = "1" ]; then KITCREATOR_PKGS='itcl mk4tcl' export KITCREATOR_PKGS fi if [ "${statictk}" = "1" ]; then STATICTK="1" export STATICTK fi buildfailed="0" | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | 128 129 130 131 132 133 134 135 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 | failed="${failed} ${version}/${kit}-build" continue fi echo "Creating Tclkit ${version}/${kit}..." echo " *** Build started $(whoami)@$(hostname) on $(date)" > "${buildlog}" echo '' >> "${buildlog}" echo " *** Build Script" >> "${buildlog}" if [ "${notk}" = "1" ]; then KITCREATOR_PKGS='itcl mk4tcl' export KITCREATOR_PKGS echo " KITCREATOR_PKGS=\"${KITCREATOR_PKGS}\"" >> "${buildlog}" echo " export KITCREATOR_PKGS" >> "${buildlog}" fi if [ "${statictk}" = "1" ]; then STATICTK="1" export STATICTK echo " STATICTK=\"${STATICTK}\"" >> "${buildlog}" echo " export STATICTK" >> "${buildlog}" fi if [ "${kitcreator}" != "./kitcreator" ]; then echo " mkdir build" >> "${buildlog}" # Several build scripts rely on minkit to work if grep './build/make-minkit' "${kitcreator}" >/dev/null 2>/dev/null; then echo " cat << \__EOF__ > ./build/make-minkit" >> "${buildlog}" sed 's@^@ @' './build/make-minkit' >> "${buildlog}" echo " __EOF__" >> "${buildlog}" echo '' >> "${buildlog}" fi echo " cat << \__EOF__ > ${kitcreator}" >> "${buildlog}" sed 's@^@ @' "${kitcreator}" >> "${buildlog}" echo " __EOF__" >> "${buildlog}" echo '' >> "${buildlog}" fi echo " \"${kitcreator}\" \"${version}\" ${args}" >> "${buildlog}" echo '' >> "${buildlog}" echo '' >> "${buildlog}" echo '' >> "${buildlog}" echo " *** Build Results" >> "${buildlog}" echo '' >> "${buildlog}" buildfailed="0" "${kitcreator}" "${version}" ${args} >> "${buildlog}" 2>&1 || buildfailed="1" grep -n '^' */build.log >> "${buildlog}" 2>&1 if [ ! -f "${createdkit}" ]; then echo "Failed to create kit ${version}/${kit}" >&2 failed="${failed} ${version}/${kit}-build" |
︙ | ︙ |