Improve portability of path constructions.

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*] }