diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-12-06 13:02:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-12-06 13:02:32 (GMT) |
| commit | bb1c5fe83355d454d63db62da5797204c6cec06e (patch) | |
| tree | cded73e2ddac2549f36cbe5081cee0d3869193ec /tests/fileSystem.test | |
| parent | 3eef9fcea1274b68161aa2c5ebfb6a975ac7143a (diff) | |
| download | tcl-bb1c5fe83355d454d63db62da5797204c6cec06e.zip tcl-bb1c5fe83355d454d63db62da5797204c6cec06e.tar.gz tcl-bb1c5fe83355d454d63db62da5797204c6cec06e.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 d34de8f..1c507e1 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -508,6 +508,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*]] { |