283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
-
+
|
if {[is_home_elsewhere]} {return}
set ::env(FOSSIL_HOME) $::tempHomePath
}
#
# Create and open a new Fossil repository and clean the checkout
#
proc repo_init {{filename ".rep.fossil"}} {
proc test_setup {{filename ".rep.fossil"}} {
set_home_to_elsewhere
if {![info exists ::tempRepoPath]} {
set ::tempRepoPath [file join $::tempPath repo_[pid]]
}
set repoSeed [appendArgs [string trim [clock seconds] -] _ [getSeqNo]]
lappend ::tempRepoSeeds $repoSeed
set repoPath [file join \
|