diff options
author | sebres <sebres@users.sourceforge.net> | 2019-02-14 10:56:48 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2019-02-14 10:56:48 (GMT) |
commit | fc24d0b9cf8dd65f77793746f54e9815abb77c2b (patch) | |
tree | 921d0ae359eb35703c7c675ccbcae9ff5d314b7d /tests/zipfs.test | |
parent | 85b1f06c9c016f3e9e216918eaa5bd31e92bae2b (diff) | |
download | tcl-fc24d0b9cf8dd65f77793746f54e9815abb77c2b.zip tcl-fc24d0b9cf8dd65f77793746f54e9815abb77c2b.tar.gz tcl-fc24d0b9cf8dd65f77793746f54e9815abb77c2b.tar.bz2 |
small amend unfolding `list "$tcl_library/http"` (previously it was result of glob)
Diffstat (limited to 'tests/zipfs.test')
-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*] } |