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
|
set c [catch { |
|
15
|
sqlite3 db $repository_name |
|
16
|
set m [clock seconds] |
|
17
|
db eval { |
|
18
|
INSERT INTO config (name, value, mtime) |
|
19
|
VALUES('test-rdonly', 'no', $m); |
|
20
|
} |
|
21
|
db close |
|
22
|
} x] |
|
23
|
return [list $c $x] |
|
24
|
}] |
|
25
|
</th1> |
|
26
|
|