Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | add test that triggered reporting of [Bug 3530230] |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
25c42cd3dc863b35bc9e5ac15fbba9a0 |
| User & Date: | dkf 2012-06-12 12:35:18 |
Context
|
2012-06-14
| ||
| 07:32 | more readable check-in: e39c97211d user: jan.nijtmans tags: core-8-5-branch | |
|
2012-06-12
| ||
| 12:36 | add test that triggered reporting of [Bug 3530230] check-in: 41bb6c4e84 user: dkf tags: trunk | |
| 12:35 | add test that triggered reporting of [Bug 3530230] check-in: 25c42cd3dc user: dkf tags: core-8-5-branch | |
|
2012-06-11
| ||
| 17:34 | 3532959 Make sure the lifetime management of entries in the linePBodyPtr hash table can tolerate eit... check-in: 20de131aef user: dgp tags: core-8-5-branch | |
Changes
Changes to tests/safe.test.
| ︙ | ︙ | |||
302 303 304 305 306 307 308 309 310 311 312 313 314 315 |
set returnScript [makeFile {return "ok"} return.tcl]
catch {safe::interpDelete $i}
} -body {
safe::interpCreate $i
set token [safe::interpAddToAccessPath $i [file dirname $returnScript]]
$i eval [list source $token/[file tail $returnScript]]
} -cleanup {
catch {safe::interpDelete $i}
removeFile $returnScript
} -result ok
test safe-9.1 {safe interps' deleteHook} {
set i "a";
catch {safe::interpDelete $i}
| > > > > > > > > > > > > > > | 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 |
set returnScript [makeFile {return "ok"} return.tcl]
catch {safe::interpDelete $i}
} -body {
safe::interpCreate $i
set token [safe::interpAddToAccessPath $i [file dirname $returnScript]]
$i eval [list source $token/[file tail $returnScript]]
} -cleanup {
catch {safe::interpDelete $i}
removeFile $returnScript
} -result ok
test safe-8.10 {safe source and return} -setup {
set returnScript [makeFile {return -level 2 "ok"} return.tcl]
catch {safe::interpDelete $i}
} -body {
safe::interpCreate $i
set token [safe::interpAddToAccessPath $i [file dirname $returnScript]]
$i eval [list apply {filename {
source $filename
error boom
}} $token/[file tail $returnScript]]
} -cleanup {
catch {safe::interpDelete $i}
removeFile $returnScript
} -result ok
test safe-9.1 {safe interps' deleteHook} {
set i "a";
catch {safe::interpDelete $i}
|
| ︙ | ︙ |