diff options
author | dgp <dgp@users.sourceforge.net> | 2017-05-01 20:25:27 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-05-01 20:25:27 (GMT) |
commit | 44c544160ac12ef622238f0a5e7f3eb1a1ca761e (patch) | |
tree | 83fdf7f47d86b8f2e75f3c5266cc29e1ea29e496 /tests/fileSystem.test | |
parent | 799554b1c55435a6c7cc1f4529d3e468106b9091 (diff) | |
parent | 262df0197b947ebc3e431b14680b1c52fb3cdefb (diff) | |
download | tcl-44c544160ac12ef622238f0a5e7f3eb1a1ca761e.zip tcl-44c544160ac12ef622238f0a5e7f3eb1a1ca761e.tar.gz tcl-44c544160ac12ef622238f0a5e7f3eb1a1ca761e.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 1941936..4513fcb 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -367,6 +367,16 @@ test filesystem-1.51 {file normalisation .. beyond root (Bug 1379287)} { test filesystem-1.51.1 {file normalisation .. beyond root (Bug 1379287)} { testPathEqual [file norm /../../] [file norm /] } 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*]] { |