Fossil SCM
|
1
|
<th1> |
|
2
|
# |
|
3
|
# This is a "TH1 fragment" used to test the Tcl integration features of TH1. |
|
4
|
# The corresponding test file executes this file using the test-th-render |
|
5
|
# Fossil command. |
|
6
|
# |
|
7
|
# NOTE: This test requires that the SQLite package be available for the Tcl |
|
8
|
# interpreter that is linked to the Fossil executable. |
|
9
|
# |
|
10
|
tclInvoke set repository_name [repository 1] |
|
11
|
proc doOut {msg} {puts $msg; puts \n} |
|
12
|
doOut [tclEval { |
|
13
|
package require sqlite3 |
|
14
|
sqlite3 db $repository_name -readonly true |
|
15
|
set x [db eval {SELECT COUNT(*) FROM user;}] |
|
16
|
db close |
|
17
|
return $x |
|
18
|
}] |
|
19
|
</th1> |
|
20
|
|