Tcl Source Code

Check-in [59607dfd9e]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:closes [b322938e08]: fix several zipfs-tests searching for single "http" directory in (compressed) tcl-library.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256:59607dfd9eaa6599a3c501eec72f3d2deb7d79dadcaa502c85bfbfb0190e94a8
User & Date: sebres 2019-02-14 10:42:49
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
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
2019-02-09
21:05
Convert Tcl_BacktroundError() into a macro, so we can deprecate the stub entry for it. Add -Wpointer... check-in: ab48435928 user: jan.nijtmans tags: core-8-branch
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/zipfs.test.

    55     55   test zipfs-0.2 {zipfs basics} -constraints zipfslib -body {
    56     56       string match ${ziproot}* $tcl_library
    57     57   } -result 1
    58     58   test zipfs-0.3 {zipfs basics: glob} -constraints zipfslib -setup {
    59     59       set pwd [pwd]
    60     60   } -body {
    61     61       cd $tcl_library
    62         -    lsort [glob -dir . http*]
           62  +    expr { "./http" in [glob -dir . http*] }
    63     63   } -cleanup {
    64     64       cd $pwd
    65         -} -result {./http}
           65  +} -result 1
    66     66   test zipfs-0.4 {zipfs basics: glob} -constraints zipfslib -setup {
    67     67       set pwd [pwd]
    68     68   } -body {
    69     69       cd $tcl_library
    70         -    lsort [glob -dir [pwd] http*]
           70  +    expr { [list $tcl_library/http] in [glob -dir [pwd] http*] }
    71     71   } -cleanup {
    72     72       cd $pwd
    73         -} -result [list $tcl_library/http]
           73  +} -result 1
    74     74   test zipfs-0.5 {zipfs basics: glob} -constraints zipfslib -body {
    75         -    lsort [glob -dir $tcl_library http*]
    76         -} -result [list $tcl_library/http]
           75  +    expr { [list $tcl_library/http] in [glob -dir $tcl_library http*] }
           76  +} -result 1
    77     77   test zipfs-0.6 {zipfs basics: glob} -constraints zipfslib -body {
    78         -    lsort [glob $tcl_library/http*]
    79         -} -result [list $tcl_library/http]
           78  +    expr { [list $tcl_library/http] in [glob $tcl_library/http*] }
           79  +} -result 1
    80     80   test zipfs-0.7 {zipfs basics: glob} -constraints zipfslib -body {
    81         -    lsort [glob -tails -dir $tcl_library http*]
    82         -} -result {http}
           81  +    expr { "http" in [glob -tails -dir $tcl_library http*] }
           82  +} -result 1
    83     83   test zipfs-0.8 {zipfs basics: glob} -constraints zipfslib -body {
    84         -    lsort [glob -nocomplain -tails -types d -dir $tcl_library http*]
    85         -} -result {http}
           84  +    expr { "http" in [glob -nocomplain -tails -types d -dir $tcl_library http*] }
           85  +} -result 1
    86     86   test zipfs-0.9 {zipfs basics: glob} -constraints zipfslib -body {
    87         -    lsort [glob -nocomplain -tails -types f -dir $tcl_library http*]
           87  +    glob -nocomplain -tails -types f -dir $tcl_library http*
    88     88   } -result {}
    89     89   test zipfs-0.10 {zipfs basics: join} -constraints {zipfs zipfslib} -body {
    90     90       file join [zipfs root] bar baz
    91     91   } -result "[zipfs root]bar/baz"
    92     92   test zipfs-0.11 {zipfs basics: join} -constraints {zipfs zipfslib} -body {
    93     93       file normalize [zipfs root]
    94     94   } -result "[zipfs root]"