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 | trunk |
Files: | files | file ages | folders |
SHA1: |
41bb6c4e84d12f13fc3c33a673610d88 |
User & Date: | dkf 2012-06-12 12:36:21 |
Context
2012-06-14
| ||
07:37 | more readable check-in: 29049e28d2 user: jan.nijtmans tags: trunk | |
2012-06-13
| ||
12:42 | merge trunk update dde doc check-in: fd51a2cd3c user: jan.nijtmans tags: frq-3527238 | |
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:49 | 3532959 Make sure the lifetime management of entries in the linePBodyPtr hash table can tolerate eit... check-in: bfddfa54a6 user: dgp tags: trunk | |
Changes
Changes to tests/safe.test.
︙ | ︙ | |||
327 328 329 330 331 332 333 334 335 336 337 338 339 340 | 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} -setup { set i "a" catch {safe::interpDelete $i} | > > > > > > > > > > > > > > | 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 | 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} -setup { set i "a" catch {safe::interpDelete $i} |
︙ | ︙ |