Fossil

Check-in [18d7d266]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Modify 'th1-tcl' test to make it run outside of the Fossil source checkout.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:18d7d266493805a9f49c8d5732bedf15bf42eb35
User & Date: mistachkin 2016-01-11 00:43:50
Context
2016-01-11
19:46
Prevent the 'array set' commands in the 'utf.test' file from causing problems if there are pre-existing scalar variables. check-in: ad6de638 user: mistachkin tags: trunk
00:43
Modify 'th1-tcl' test to make it run outside of the Fossil source checkout. check-in: 18d7d266 user: mistachkin tags: trunk
00:40
Modify 'th1-hooks' test to decouple it from needing to run within a Fossil source checkout. check-in: 9bfdc5c6 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/th1-tcl.test.

15
16
17
18
19
20
21




22
23
24
25
26
27
28
#
############################################################################
#
# TH1/Tcl integration
#

set dir [file dirname [info script]]





###############################################################################

fossil test-th-eval "hasfeature tcl"

if {$::RESULT ne "1"} then {
  puts "Fossil was not compiled with Tcl support."; return







>
>
>
>







15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#
############################################################################
#
# TH1/Tcl integration
#

set dir [file dirname [info script]]

###############################################################################

repo_init

###############################################################################

fossil test-th-eval "hasfeature tcl"

if {$::RESULT ne "1"} then {
  puts "Fossil was not compiled with Tcl support."; return