Fossil

Check-in [e264125a]
Login

Check-in [e264125a]

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

Overview
Comment:Treat 'file normalize' with a bit more skepticism.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | testerCleanup
Files: files | file ages | folders
SHA1: e264125a2cb435fca8c5d0d325dbc4eb84fa98fc
User & Date: mistachkin 2016-03-03 22:12:51.989
Context
2016-03-05
00:16
Add a '-keep' command line option to the test suite to prevent any test cleanup from taking place. ... (check-in: 95f7fe5a user: mistachkin tags: testerCleanup)
2016-03-03
22:12
Treat 'file normalize' with a bit more skepticism. ... (check-in: e264125a user: mistachkin tags: testerCleanup)
21:50
Improve handling of setting up the initial temporary directory. ... (check-in: e6e79ac6 user: mistachkin tags: testerCleanup)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/tester.tcl.
417
418
419
420
421
422
423


424
425
426
427
428
429
430
431
432
  #
  # NOTE: Check if we can use any of the environment variables.
  #
  foreach name $names {
    set value [getEnvironmentVariable $name]

    if {[string length $value] > 0} then {


      if {[file exists $value] && [file isdirectory $value]} then {
        return [file normalize $value]
      }
    }
  }

  #
  # NOTE: On non-Windows systems, fallback to /tmp if it is usable.
  #







>
>

|







417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
  #
  # NOTE: Check if we can use any of the environment variables.
  #
  foreach name $names {
    set value [getEnvironmentVariable $name]

    if {[string length $value] > 0} then {
      set value [file normalize $value]

      if {[file exists $value] && [file isdirectory $value]} then {
        return $value
      }
    }
  }

  #
  # NOTE: On non-Windows systems, fallback to /tmp if it is usable.
  #