From fc24d0b9cf8dd65f77793746f54e9815abb77c2b Mon Sep 17 00:00:00 2001 From: sebres Date: Thu, 14 Feb 2019 10:56:48 +0000 Subject: small amend unfolding `list "$tcl_library/http"` (previously it was result of glob) --- tests/zipfs.test | 6 +++--- 1 file 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*] } -- cgit v0.12