diff options
| -rw-r--r-- | tests/zipfs.test | 6 |
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*] } |