diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-12-06 13:06:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-12-06 13:06:47 (GMT) |
| commit | d7ed3259130eb94a7050d2d66b99c997378c969d (patch) | |
| tree | cf03bb908666efe67a261850c6f156450af44857 /tests/fileSystem.test | |
| parent | 72f0f0b3468809e3a3a26e448b3bd3be8a8398a6 (diff) | |
| parent | 07aa7381a974c339325fff3c7ab509c73d1fd2e2 (diff) | |
| download | tcl-d7ed3259130eb94a7050d2d66b99c997378c969d.zip tcl-d7ed3259130eb94a7050d2d66b99c997378c969d.tar.gz tcl-d7ed3259130eb94a7050d2d66b99c997378c969d.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 4c90376..0dd0bdb 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*]] { |