Fossil

Check-in [dc72fd96]
Login

Check-in [dc72fd96]

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

Overview
Comment:Fix glitch in tester.tcl on Windows which caused repo_init to fail to guard the users's lists of all repositories and checkouts. Setting FOSSIL_HOME as well as HOME to [pwd] resolves this neatly, and likely makes it more robust on other platforms since FOSSIL_HOME is always checked first and if set by a user, would still override the attempt made by repo_init to protect them.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: dc72fd9624dcd15b0782fa7687fb8778920307bf
User & Date: rberteig 2016-02-27 02:12:31.285
Context
2016-02-29
21:23
Show the number of bytes for image artifacts and attachments as well. ... (check-in: f4c6e49a user: mistachkin tags: trunk)
2016-02-27
16:38
Bring in latest developments on trunk. ... (check-in: eda22812 user: andybradford tags: stash-fixes)
02:22
Add a new document covering global options and environment variables used by fossil. This is a work in progress, but snapshotted as it stands so that others can poke at it. ... (check-in: 946ed34d user: rberteig tags: ross-doc-env)
02:12
Fix glitch in tester.tcl on Windows which caused repo_init to fail to guard the users's lists of all repositories and checkouts. Setting FOSSIL_HOME as well as HOME to [pwd] resolves this neatly, and likely makes it more robust on other platforms since FOSSIL_HOME is always checked first and if set by a user, would still override the attempt made by repo_init to protect them. ... (check-in: dc72fd96 user: rberteig tags: trunk)
2016-02-26
18:42
Add -e as a short option for --edit-comment in fossil amend. ... (check-in: 9ea1f140 user: rberteig tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/tester.tcl.
︙︙
195
196
197
198
199
200
201
202
203
204

205
206
207
208
209
210
211

#
proc repo_init {{filename ".rep.fossil"}} {
  if {$::env(HOME) ne [pwd]} {
    catch {exec $::fossilexe info} res
    if {![regexp {use --repository} $res]} {
      error "In an open checkout: cannot initialize a new repository here."
    }
    # Fossil will write data on $HOME, running 'fossil new' here.
    # We need not to clutter the $HOME of the test caller.
    #

    set ::env(HOME) [pwd]
  }
  catch {exec $::fossilexe close -f}
  file delete $filename
  exec $::fossilexe new $filename
  exec $::fossilexe open $filename
  exec $::fossilexe clean -f








|


>








195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212

#
proc repo_init {{filename ".rep.fossil"}} {
  if {$::env(HOME) ne [pwd]} {
    catch {exec $::fossilexe info} res
    if {![regexp {use --repository} $res]} {
      error "In an open checkout: cannot initialize a new repository here."
    }
    # Fossil will write data on $FOSSIL_HOME, running 'fossil new' here.
    # We need not to clutter the $HOME of the test caller.
    #
    set ::env(FOSSIL_HOME) [pwd]
    set ::env(HOME) [pwd]
  }
  catch {exec $::fossilexe close -f}
  file delete $filename
  exec $::fossilexe new $filename
  exec $::fossilexe open $filename
  exec $::fossilexe clean -f
︙︙