diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-17 13:43:54 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-17 13:43:54 (GMT) |
commit | 5b97aedd0b32abe3c3ab134c08fe01f6f496c2c6 (patch) | |
tree | 66e143ccd83f47de16a78d7ad17c2b16adf8248f /library/tcltest/tcltest.tcl | |
parent | 3013ff330e1917f7d543a69bbbc50e19ac4e8090 (diff) | |
download | tcl-5b97aedd0b32abe3c3ab134c08fe01f6f496c2c6.zip tcl-5b97aedd0b32abe3c3ab134c08fe01f6f496c2c6.tar.gz tcl-5b97aedd0b32abe3c3ab134c08fe01f6f496c2c6.tar.bz2 |
Change "channelId" to "channel" in documentation, error-handling and testcases
Diffstat (limited to 'library/tcltest/tcltest.tcl')
-rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 79492f6..25304404 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -1639,7 +1639,7 @@ proc tcltest::Replace::puts {args} { # return [Puts [lindex $args 0]] } 2 { - # Either -nonewline or channelId has been specified + # Either -nonewline or channel has been specified if {[lindex $args 0] eq "-nonewline"} { append outData [lindex $args end] return @@ -1651,7 +1651,7 @@ proc tcltest::Replace::puts {args} { } 3 { if {[lindex $args 0] eq "-nonewline"} { - # Both -nonewline and channelId are specified, unless + # Both -nonewline and channel are specified, unless # it's an error. -nonewline is supposed to be argv[0]. set channel [lindex $args 1] set newline "" |