From 5fd6fc8ae4d88e17f66c93e521c89fba72b77fd4 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 14 Feb 2019 19:34:39 +0000
Subject: Improve portability of path constructions.

---
 tests/zipfs.test | 8 ++++----
 1 file 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*] }
-- 
cgit v0.12