Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | merge new test |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
38a5642a29d3cd5ee092fb3c4f47eba9 |
User & Date: | dgp 2011-07-13 21:19:08 |
Context
2011-07-14
| ||
02:39 | 3366265 Allocate proper size buffer for TclConvertElement() to write to. check-in: edfd80bc20 user: dgp tags: core-8-5-branch | |
2011-07-13
| ||
21:19 | merge new test check-in: 38a5642a29 user: dgp tags: core-8-5-branch | |
17:53 | 3366265 Buffer allocated one byte too small caused overrun. check-in: 9d68baec02 user: dgp tags: core-8-4-branch | |
2011-07-12
| ||
15:19 | Silence type match warnings in debug print. check-in: c98cb23f45 user: dgp tags: core-8-5-branch | |
Changes
Changes to tests/proc.test.
︙ | ︙ | |||
172 173 174 175 176 177 178 179 180 181 182 183 184 185 | list [catch {p} msg] $msg } {1 {wrong # args: should be "p x"}} test proc-3.6 {TclObjInterpProc, proper quoting of proc name, Bug 942757} { proc {a b c} {x} {info commands 3m} list [catch {{a b c}} msg] $msg } {1 {wrong # args: should be "{a b c} x"}} catch {namespace delete {*}[namespace children :: test_ns_*]} catch {rename p ""} catch {rename {} ""} catch {rename {a b c} {}} catch {unset msg} | > > > > > | 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 | list [catch {p} msg] $msg } {1 {wrong # args: should be "p x"}} test proc-3.6 {TclObjInterpProc, proper quoting of proc name, Bug 942757} { proc {a b c} {x} {info commands 3m} list [catch {{a b c}} msg] $msg } {1 {wrong # args: should be "{a b c} x"}} test proc-3.7 {TclObjInterpProc, wrong num args, Bug 3366265} { proc {} {x} {} list [catch {{}} msg] $msg } {1 {wrong # args: should be "{} x"}} catch {namespace delete {*}[namespace children :: test_ns_*]} catch {rename p ""} catch {rename {} ""} catch {rename {a b c} {}} catch {unset msg} |
︙ | ︙ |