Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | test file hygiene |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
6064100d09cc002833c1cfca191d9478 |
| User & Date: | dgp 2019-04-17 16:56:55.935 |
Context
|
2019-04-17
| ||
| 17:45 | Do not access allocated memory before initializing it. check-in: da82a19bbf user: dgp tags: core-8-branch | |
| 16:56 | test file hygiene check-in: 6064100d09 user: dgp tags: core-8-branch | |
| 16:32 | Duplicate test names. check-in: 024761f29a user: dgp tags: core-8-branch | |
Changes
Changes to tests/process.test.
| ︙ | ︙ | |||
328 329 330 331 332 333 334 335 336 337 338 |
set pid [exec [interpreter] $path(exit) -1 &]
lindex [tcl::process status -wait $pid] 1
} -match glob -result {1 {child killed: unknown signal} {CHILDKILLED * {unknown signal} {unknown signal}}} -cleanup {
tcl::process purge
tcl::process autopurge 1
}
rename wait_for_file {}
rename signal_exit {}
::tcltest::cleanupTests
return
| > > > | 328 329 330 331 332 333 334 335 336 337 338 339 340 341 |
set pid [exec [interpreter] $path(exit) -1 &]
lindex [tcl::process status -wait $pid] 1
} -match glob -result {1 {child killed: unknown signal} {CHILDKILLED * {unknown signal} {unknown signal}}} -cleanup {
tcl::process purge
tcl::process autopurge 1
}
removeFile $path(exit)
removeFile $path(sleep)
rename wait_for_file {}
rename signal_exit {}
::tcltest::cleanupTests
return
|