summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/zipfs.test8
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*] }