diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-05-01 20:23:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-05-01 20:23:28 (GMT) |
| commit | ed853e1ffb7933562c641af3d69686df27520a8f (patch) | |
| tree | bea537c1c3524b7a1e64d63515d78dfcdd37f7d7 /tests/fileSystem.test | |
| parent | 64f999ee893448c079cadda5b07e13a51066dad0 (diff) | |
| download | tcl-ed853e1ffb7933562c641af3d69686df27520a8f.zip tcl-ed853e1ffb7933562c641af3d69686df27520a8f.tar.gz tcl-ed853e1ffb7933562c641af3d69686df27520a8f.tar.bz2 | |
[f9fe90d0fa] [file join] normalization. See filesystem-1.52*
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index c255b1e..28e5268 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -498,6 +498,16 @@ test filesystem-1.51.1 {file normalisation .. beyond root (Bug 1379287)} { set res "ok" } } {ok} +test filesystem-1.52 {bug f9f390d0fa: file join where strep is not canonical} -body { + set x //foo + file normalize $x + file join $x bar +} -result /foo/bar +test filesystem-1.52.1 {bug f9f390d0fa: file join where strep is not canonical} -body { + set x //foo + file normalize $x + file join $x +} -result /foo test filesystem-2.0 {new native path} {unix} { foreach f [lsort [glob -nocomplain /usr/bin/c*]] { |