summaryrefslogtreecommitdiffstats
path: root/tests/fileSystem.test
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2004-05-07 07:44:35 (GMT)
committervincentdarley <vincentdarley>2004-05-07 07:44:35 (GMT)
commit8c5df5fda90a29c593793d69237f1f8cceb0e4c0 (patch)
tree15cbaaef673cb04fd761bfd3522c629aa2dc347b /tests/fileSystem.test
parentfcc10d4dd68b2d659c7554f1d07781320a75a74b (diff)
downloadtcl-8c5df5fda90a29c593793d69237f1f8cceb0e4c0.zip
tcl-8c5df5fda90a29c593793d69237f1f8cceb0e4c0.tar.gz
tcl-8c5df5fda90a29c593793d69237f1f8cceb0e4c0.tar.bz2
vfs glob root volume fix
Diffstat (limited to 'tests/fileSystem.test')
-rw-r--r--tests/fileSystem.test51
1 files changed, 51 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index e9c4ee6..a45751f 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -728,6 +728,57 @@ test filesystem-7.3 {glob in simplefs} \
set res
} {simplefs:/simpledir/simplefile}
+test filesystem-7.3.1 {glob in simplefs: no path/dir} \
+ {testsimplefilesystem} {
+ set dir [pwd]
+ cd [tcltest::temporaryDirectory]
+ file mkdir simpledir
+ close [open [file join simpledir simplefile] w]
+ testsimplefilesystem 1
+ set res [glob -nocomplain simplefs:/simpledir/*]
+ eval lappend res [glob -nocomplain simplefs:/simpledir]
+ testsimplefilesystem 0
+ file delete -force simpledir
+ cd $dir
+ set res
+} {simplefs:/simpledir/simplefile simplefs:/simpledir}
+
+test filesystem-7.3.2 {glob in simplefs: no path/dir, no subdirectory} \
+ {testsimplefilesystem} {
+ set dir [pwd]
+ cd [tcltest::temporaryDirectory]
+ file mkdir simpledir
+ close [open [file join simpledir simplefile] w]
+ testsimplefilesystem 1
+ set res [glob -nocomplain simplefs:/s*]
+ testsimplefilesystem 0
+ file delete -force simpledir
+ cd $dir
+ if {[llength $res] > 0} {
+ set res "ok"
+ } else {
+ set res "no files found with 'glob -nocomplain simplefs:/s*'"
+ }
+} {ok}
+
+test filesystem-7.3.3 {glob in simplefs: pattern is a volume} \
+ {testsimplefilesystem} {
+ set dir [pwd]
+ cd [tcltest::temporaryDirectory]
+ file mkdir simpledir
+ close [open [file join simpledir simplefile] w]
+ testsimplefilesystem 1
+ set res [glob -nocomplain simplefs:/*]
+ testsimplefilesystem 0
+ file delete -force simpledir
+ cd $dir
+ if {[llength $res] > 0} {
+ set res "ok"
+ } else {
+ set res "no files found with 'glob -nocomplain simplefs:/*'"
+ }
+} {ok}
+
test filesystem-7.4 {cross-filesystem file copy with -force} \
{testsimplefilesystem} {
set dir [pwd]