Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Have wapptest.tcl display the name, OS and architecture of the host. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | wapptest |
Files: | files | file ages | folders |
SHA3-256: |
c47e53b4d0f29628bd20ba3daf7e759c |
User & Date: | dan 2019-04-10 19:45:19.357 |
Context
2019-04-11
| ||
06:50 | Fix the checksymbols target in Makefile.in. (check-in: 1956eb3481 user: dan tags: wapptest) | |
2019-04-10
| ||
19:45 | Have wapptest.tcl display the name, OS and architecture of the host. (check-in: c47e53b4d0 user: dan tags: wapptest) | |
18:56 | Various fixes for the wapptest.tcl script. (check-in: cbf4236560 user: dan tags: wapptest) | |
Changes
Changes to test/wapptest.tcl.
︙ | |||
39 40 41 42 43 44 45 46 47 48 49 50 51 52 | 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | + + + + + | # releasetest.tcl script set G(releaseTest) [file join [file dirname [info script]] releasetest.tcl] set G(sqlite_version) "unknown" # Either "config", "running" or "stopped": set G(state) "config" set G(host) "(unknown host)" catch { set G(host) [exec hostname] } append G(host) " $::tcl_platform(os) $::tcl_platform(osVersion)" append G(host) " $::tcl_platform(machine) $::tcl_platform(byteOrder)" } # Check to see if there are uncommitted changes in the SQLite source # directory. Return true if there are, or false otherwise. # proc check_uncommitted {} { global G |
︙ | |||
279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 | 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 | + + | wapp-trim { <div class=warning> WARNING: Uncommitted changes in checkout. </div> } } set host $G(host) wapp-trim { <div class=div>%string($host)</div> <div class=div id=controls> <form action="control" method="post" name="control"> } # Build the "platform" select widget. set lOpt [array names ::Platforms] generate_select_widget Platform control_platform $lOpt $G(platform) |
︙ |