diff options
author | dgp <dgp@users.sourceforge.net> | 2017-12-06 13:05:51 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-12-06 13:05:51 (GMT) |
commit | 07aa7381a974c339325fff3c7ab509c73d1fd2e2 (patch) | |
tree | be267ff1dce0823fd826212740ca7d3404039999 /tests/fileSystem.test | |
parent | f3af86c67e61eaba34af3d25e883ae3e9fc83099 (diff) | |
parent | bb1c5fe83355d454d63db62da5797204c6cec06e (diff) | |
download | tcl-07aa7381a974c339325fff3c7ab509c73d1fd2e2.zip tcl-07aa7381a974c339325fff3c7ab509c73d1fd2e2.tar.gz tcl-07aa7381a974c339325fff3c7ab509c73d1fd2e2.tar.bz2 |
[ce3a211dcb] Failed file normalize when tail is empty string.
Diffstat (limited to 'tests/fileSystem.test')
-rw-r--r-- | tests/fileSystem.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 10895b2..b805780 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -377,6 +377,22 @@ test filesystem-1.52.1 {bug f9f390d0fa: file join where strep is not canonical} file normalize $x file join $x } -result /foo +test filesystem-1.53 {[Bug 3559678] - normalize when tail is empty} { + string match */ [file normalize [lindex [glob -dir [pwd] {{}}] 0]] +} 0 +test filesystem-1.54 {[Bug ce3a211dcb] - normalize when tail is empty} -setup { + set save [pwd] + cd [set home [makeDirectory ce3a211dcb]] + makeDirectory A $home + cd [lindex [glob */] 0] +} -body { + string match */A [pwd] +} -cleanup { + cd $home + removeDirectory A $home + cd $save + removeDirectory ce3a211dcb +} -result 1 test filesystem-2.0 {new native path} {unix} { foreach f [lsort [glob -nocomplain /usr/bin/c*]] { |