Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | 3605719,3605720 Test independence. Thanks Rolf Ade for patches. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
c11ede57a15e40017f3eccac332fa5f8 |
| User & Date: | dgp 2013-02-25 14:54:14 |
Context
|
2013-02-25
| ||
| 15:37 | ArraySearch struct used only locally. Remove from tclInt.h. check-in: 5983dbd3a0 user: dgp tags: core-8-5-branch | |
| 14:55 | 3605719,3605720 Test independence. Thanks Rolf Ade for patches. check-in: c4b02b8c49 user: dgp tags: trunk | |
| 14:54 | 3605719,3605720 Test independence. Thanks Rolf Ade for patches. check-in: c11ede57a1 user: dgp tags: core-8-5-branch | |
|
2013-02-22
| ||
| 18:54 | Restore the ReleaseCmdWordData cleanup routine from 8.4, to plug very rare memory leak. check-in: a616d4b120 user: dgp tags: core-8-5-branch | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2013-02-22 Don Porter <[email protected]> * generic/tclCompile.c: Shift more burden of smart cleanup onto the TclFreeCompileEnv() routine. Stop crashes when the hookProc raises an error. 2013-02-20 Don Porter <[email protected]> | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2013-02-25 Don Porter <[email protected]> * tests/assocd.test: [Bugs 3605719,3605720] Test independence. * tests/basic.test: Thanks Rolf Ade for patches. 2013-02-22 Don Porter <[email protected]> * generic/tclCompile.c: Shift more burden of smart cleanup onto the TclFreeCompileEnv() routine. Stop crashes when the hookProc raises an error. 2013-02-20 Don Porter <[email protected]> |
| ︙ | ︙ |
Changes to tests/assocd.test.
| ︙ | ︙ | |||
27 28 29 30 31 32 33 |
test assocd-1.3 {testing setting assoc data} testsetassocdata {
testsetassocdata 123 456
} ""
test assocd-1.4 {testing setting assoc data} testsetassocdata {
testsetassocdata abc "abc d e f"
} ""
| | > > | | | > > | | | > > | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
test assocd-1.3 {testing setting assoc data} testsetassocdata {
testsetassocdata 123 456
} ""
test assocd-1.4 {testing setting assoc data} testsetassocdata {
testsetassocdata abc "abc d e f"
} ""
test assocd-2.1 {testing getting assoc data} -setup {
testsetassocdata a 2
} -constraints {testgetassocdata} -body {
testgetassocdata a
} -result 2
test assocd-2.2 {testing getting assoc data} -setup {
testsetassocdata 123 456
} -constraints {testgetassocdata} -body {
testgetassocdata 123
} -result 456
test assocd-2.3 {testing getting assoc data} -setup {
testsetassocdata abc "abc d e f"
} -constraints {testgetassocdata} -body {
testgetassocdata abc
} -result "abc d e f"
test assocd-2.4 {testing getting assoc data} testgetassocdata {
testgetassocdata xxx
} ""
test assocd-3.1 {testing deleting assoc data} testdelassocdata {
testdelassocdata a
} ""
|
| ︙ | ︙ |
Changes to tests/basic.test.
| ︙ | ︙ | |||
260 261 262 263 264 265 266 |
namespace eval test_ns_basic {
proc p {} {
return "p in [namespace current]"
}
}
rename test_ns_basic::p :::george::martha
} {}
| | > > > > > > > > > > | | 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 |
namespace eval test_ns_basic {
proc p {} {
return "p in [namespace current]"
}
}
rename test_ns_basic::p :::george::martha
} {}
test basic-18.5 {TclRenameCommand, new name must not already exist} -setup {
if {![llength [info commands :::george::martha]]} {
catch {namespace delete {*}[namespace children :: test_ns_*]}
namespace eval test_ns_basic {
proc p {} {
return "p in [namespace current]"
}
}
rename test_ns_basic::p :::george::martha
}
} -body {
namespace eval test_ns_basic {
proc q {} {
return 42
}
}
list [catch {rename test_ns_basic::q :::george::martha} msg] $msg
} -result {1 {can't rename to ":::george::martha": command already exists}}
test basic-18.6 {TclRenameCommand, check for command shadowing by newly renamed cmd} {
catch {namespace delete {*}[namespace children :: test_ns_*]}
catch {rename p ""}
catch {rename q ""}
proc p {} {
return "p in [namespace current]"
}
|
| ︙ | ︙ |