Tcl Source Code

Check-in [6c4886e1e1]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:small amend unfolding `list "$tcl_library/http"` (previously it was result of glob)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256:6c4886e1e14f67e4c50127bf546d223dc85056253b56b936d7c7bc3a597a91c7
User & Date: sebres 2019-02-14 10:56:48
References
2019-02-14
11:04 Pending ticket [b322938e08]: Revised TCL_ZIP_FILE build is less robust plus 5 other changes artifact: 07c773b0d5 user: sebres
Context
2019-02-14
19:34
Improve portability of path constructions. check-in: 9dd7481c5c user: dgp tags: core-8-branch
10:56
small amend unfolding `list "$tcl_library/http"` (previously it was result of glob) check-in: 6c4886e1e1 user: sebres tags: core-8-branch
10:42
closes [b322938e08]: fix several zipfs-tests searching for single "http" directory in (compressed) t... check-in: 59607dfd9e user: sebres tags: core-8-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/zipfs.test.

63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
} -cleanup {
    cd $pwd
} -result 1
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*] }
} -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*] }
} -result 1
test zipfs-0.6 {zipfs basics: glob} -constraints zipfslib -body {
    expr { [list $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*] }
} -result 1
test zipfs-0.8 {zipfs basics: glob} -constraints zipfslib -body {
    expr { "http" in [glob -nocomplain -tails -types d -dir $tcl_library http*] }
} -result 1







|




|


|







63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
} -cleanup {
    cd $pwd
} -result 1
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*] }
} -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*] }
} -result 1
test zipfs-0.6 {zipfs basics: glob} -constraints zipfslib -body {
    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*] }
} -result 1
test zipfs-0.8 {zipfs basics: glob} -constraints zipfslib -body {
    expr { "http" in [glob -nocomplain -tails -types d -dir $tcl_library http*] }
} -result 1