summaryrefslogtreecommitdiffstats
path: root/tests/fileSystem.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2017-12-06 13:05:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2017-12-06 13:05:51 (GMT)
commit07aa7381a974c339325fff3c7ab509c73d1fd2e2 (patch)
treebe267ff1dce0823fd826212740ca7d3404039999 /tests/fileSystem.test
parentf3af86c67e61eaba34af3d25e883ae3e9fc83099 (diff)
parentbb1c5fe83355d454d63db62da5797204c6cec06e (diff)
downloadtcl-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.test16
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*]] {