Tcl Source Code

Check-in [c6db0a87d1]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: Clean up unwanted eofchar side-effect of chan-4.6 leading to a spurious "'" at end of chan.test under certain conditions (see [Bug 3389289] and [Bug 3389251]).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c6db0a87d1b905a804653e467a33bef94bd100f2
User & Date: ferrieux 2012-12-09 11:52:04
Context
2012-12-09
19:44
[Bug 3594188] Clarifications about commas. check-in: d9fda76c9b user: ferrieux tags: trunk
12:08
merge trunk: get fix for test error under -DPURIFY check-in: 9912334f76 user: mig tags: mig-nre-mods
11:52
Clean up unwanted eofchar side-effect of chan-4.6 leading to a spurious "'" at end of chan.test und... check-in: c6db0a87d1 user: ferrieux tags: trunk
2012-12-08
17:13
Fix busyloop at exit under TCL_FINALIZE_ON_EXIT when there are unflushed nonblocking channels. Th... check-in: 3a000c424c user: ferrieux tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





2012-12-08  Alexandre Ferrieux  <[email protected]>
	* generic/tclIO.c: Fix busyloop at exit under TCL_FINALIZE_ON_EXIT
	when there  are unflushed nonblocking channels.  Thanks Miguel for
	spotting.

2012-12-07  Jan Nijtmans  <[email protected]>

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2012-12-09  Alexandre Ferrieux  <[email protected]>
	* tests/chan.test: Clean up unwanted eofchar side-effect of
	chan-4.6 leading to a spurious "'" at end of chan.test under
	certain conditions (see [Bug 3389289] and [Bug 3389251]).

2012-12-08  Alexandre Ferrieux  <[email protected]>
	* generic/tclIO.c: Fix busyloop at exit under TCL_FINALIZE_ON_EXIT
	when there  are unflushed nonblocking channels.  Thanks Miguel for
	spotting.

2012-12-07  Jan Nijtmans  <[email protected]>

Changes to tests/chan.test.

57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
    chan configure stdout -eofchar [list \x27 {}]
} -returnCodes ok -result {}
test chan-4.5 {chan command: check valid inValue, invalid outValue} -body {
    chan configure stdout -eofchar [list \x27 \x80]
} -returnCodes error -match glob -result {bad value for -eofchar:*}
test chan-4.6 {chan command: check no inValue, valid outValue} -body {
    chan configure stdout -eofchar [list {} \x27]
} -returnCodes ok -result {}

test chan-5.1 {chan command: copy subcommand} -body {
    chan copy foo
} -returnCodes error -result "wrong # args: should be \"chan copy input output ?-size size? ?-command callback?\""

test chan-6.1 {chan command: eof subcommand} -body {
    chan eof foo bar







|







57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
    chan configure stdout -eofchar [list \x27 {}]
} -returnCodes ok -result {}
test chan-4.5 {chan command: check valid inValue, invalid outValue} -body {
    chan configure stdout -eofchar [list \x27 \x80]
} -returnCodes error -match glob -result {bad value for -eofchar:*}
test chan-4.6 {chan command: check no inValue, valid outValue} -body {
    chan configure stdout -eofchar [list {} \x27]
} -returnCodes ok -result {} -cleanup {chan configure stdout -eofchar [list {} {}]}

test chan-5.1 {chan command: copy subcommand} -body {
    chan copy foo
} -returnCodes error -result "wrong # args: should be \"chan copy input output ?-size size? ?-command callback?\""

test chan-6.1 {chan command: eof subcommand} -body {
    chan eof foo bar