small amend unfolding `list "$tcl_library/http"` (previously it was result of glob)

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/zipfs.test b/tests/zipfs.test
index 26a0af3..f530836 100644
--- a/tests/zipfs.test
+++ b/tests/zipfs.test
@@ -67,15 +67,15 @@ test zipfs-0.4 {zipfs basics: glob} -constraints zipfslib -setup {
     set pwd [pwd]
 } -body {
     cd $tcl_library
-    expr { [list $tcl_library/http] in [glob -dir [pwd] http*] }
+    expr { "$tcl_library/http" in [glob -dir [pwd] http*] }
 } -cleanup {
     cd $pwd
 } -result 1
 test zipfs-0.5 {zipfs basics: glob} -constraints zipfslib -body {
-    expr { [list $tcl_library/http] in [glob -dir $tcl_library http*] }
+    expr { "$tcl_library/http" in [glob -dir $tcl_library http*] }
 } -result 1
 test zipfs-0.6 {zipfs basics: glob} -constraints zipfslib -body {
-    expr { [list $tcl_library/http] in [glob $tcl_library/http*] }
+    expr { "$tcl_library/http" in [glob $tcl_library/http*] }
 } -result 1
 test zipfs-0.7 {zipfs basics: glob} -constraints zipfslib -body {
     expr { "http" in [glob -tails -dir $tcl_library http*] }