Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix [9a8ce8af3d] - test suite hang in io-28.6 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | main |
| Files: | files | file ages | folders |
| SHA3-256: |
1faf4d8e12089392334861d24a912296 |
| User & Date: | apnadkarni 2024-04-27 09:30:21 |
Context
|
2024-04-27
| ||
| 17:11 | This construct doens't work on MSVC check-in: 6c824b0137 user: jan.nijtmans tags: trunk, main | |
| 09:30 | Fix [9a8ce8af3d] - test suite hang in io-28.6 check-in: 1faf4d8e12 user: apnadkarni tags: trunk, main | |
|
2024-04-26
| ||
| 17:02 | Fix test for [9a8ce8af3d] Closed-Leaf check-in: 4cb226a8d1 user: apnadkarni tags: bug-9a8ce8af3d | |
| 13:00 | Fix [1e48483c8b]: Use of non-standard C code in TCLBOOLWARNING check-in: 4ed9ffe536 user: jan.nijtmans tags: trunk, main | |
Changes
Changes to tests/io.test.
| ︙ | ︙ | |||
2475 2476 2477 2478 2479 2480 2481 |
test io-28.6 {
close channel in write event handler
Should not produce a segmentation fault in a Tcl built with
--enable-symbols and -DPURIFY
| | | > > > > > > > | > > > > > | | < | | 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 |
test io-28.6 {
close channel in write event handler
Should not produce a segmentation fault in a Tcl built with
--enable-symbols and -DPURIFY
} -body {
variable done
variable res
after 0 [list coroutine c1 apply [list {} {
variable done
set chan [chan create w {apply {{cmd chan args} {
switch $cmd {
blocking - finalize {
}
watch {
chan postevent $chan write
}
initialize {
list initialize finalize watch read write configure blocking
}
default {
error [list {unexpected command} $cmd]
}
}
}}}]
chan configure $chan -blocking 0
while 1 {
chan event $chan writable [list [info coroutine]]
yield
close $chan
set done 1
return
}
} [namespace current]]]
vwait [namespace current]::done
return success
} -result success
test io-28.7 {
close channel in read event handler
Should not produce a segmentation fault in a Tcl built with
--enable-symbols and -DPURIFY
} -body {
variable done
variable res
after 0 [list coroutine c1 apply [list {} {
variable done
set chan [chan create r {apply {{cmd chan args} {
switch $cmd {
blocking - finalize {
|
| ︙ | ︙ | |||
2532 2533 2534 2535 2536 2537 2538 |
yield
close $chan
set done 1
return
}
} [namespace current]]]
vwait [namespace current]::done
| | | < < | 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 |
yield
close $chan
set done 1
return
}
} [namespace current]]]
vwait [namespace current]::done
return success
} -result success
test io-29.1 {Tcl_WriteChars, channel not writable} {
list [catch {puts stdin hello} msg] $msg
} {1 {channel "stdin" wasn't opened for writing}}
test io-29.2 {Tcl_WriteChars, empty string} {
file delete $path(test1)
set f [open $path(test1) w]
|
| ︙ | ︙ |