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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | wapptest |
| Files: | files | file ages | folders |
| SHA3-256: |
c47e53b4d0f29628bd20ba3daf7e759c |
| User & Date: | dan 2019-04-10 19:45:19 |
Context
|
2019-04-11
| ||
| 06:50 | Fix the checksymbols target in Makefile.in. check-in: 1956eb34 user: dan tags: wapptest | |
|
2019-04-10
| ||
| 19:45 | Have wapptest.tcl display the name, OS and architecture of the host. check-in: c47e53b4 user: dan tags: wapptest | |
| 18:56 | Various fixes for the wapptest.tcl script. check-in: cbf42365 user: dan tags: wapptest | |
Changes
Changes to test/wapptest.tcl.
39
40
41
42
43
44
45
46
47
48
49
50
51
52
...
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
|
# 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"
}
# 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
................................................................................
wapp-trim {
<div class=warning>
WARNING: Uncommitted changes in checkout.
</div>
}
}
wapp-trim {
<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)
|
>
>
>
>
>
>
>
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
...
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
# 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 ................................................................................ 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) |