Index: test/wapptest.tcl ================================================================== --- test/wapptest.tcl +++ test/wapptest.tcl @@ -41,10 +41,15 @@ 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. # @@ -281,11 +286,13 @@ WARNING: Uncommitted changes in checkout. } } + set host $G(host) wapp-trim { +
%string($host)
} # Build the "platform" select widget.