diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/zipfs.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index f530836..782d032 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -59,7 +59,7 @@ test zipfs-0.3 {zipfs basics: glob} -constraints zipfslib -setup { set pwd [pwd] } -body { cd $tcl_library - expr { "./http" in [glob -dir . http*] } + expr { [file join . http] in [glob -dir . http*] } } -cleanup { cd $pwd } -result 1 @@ -67,15 +67,15 @@ test zipfs-0.4 {zipfs basics: glob} -constraints zipfslib -setup { set pwd [pwd] } -body { cd $tcl_library - expr { "$tcl_library/http" in [glob -dir [pwd] http*] } + expr { [file join $tcl_library http] in [glob -dir [pwd] http*] } } -cleanup { cd $pwd } -result 1 test zipfs-0.5 {zipfs basics: glob} -constraints zipfslib -body { - expr { "$tcl_library/http" in [glob -dir $tcl_library http*] } + expr { [file join $tcl_library http] in [glob -dir $tcl_library http*] } } -result 1 test zipfs-0.6 {zipfs basics: glob} -constraints zipfslib -body { - expr { "$tcl_library/http" in [glob $tcl_library/http*] } + expr { [file join $tcl_library http] in [glob [file join $tcl_library http*]] } } -result 1 test zipfs-0.7 {zipfs basics: glob} -constraints zipfslib -body { expr { "http" in [glob -tails -dir $tcl_library http*] } |