diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:22:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:22:18 (GMT) |
commit | f0ec68f07293dac2b967d45a3697073b77688970 (patch) | |
tree | 1c2e9c90480d43aa230b77653baff036339dc848 /tests/chan.test | |
parent | 6e44927248852ae0356d9d3e1cfa3d69597a66b1 (diff) | |
download | tcl-f0ec68f07293dac2b967d45a3697073b77688970.zip tcl-f0ec68f07293dac2b967d45a3697073b77688970.tar.gz tcl-f0ec68f07293dac2b967d45a3697073b77688970.tar.bz2 |
Prevent the usage of the term safe/unsafe child. Suggested by Keith Nash. Thanks!
More usage of $index<0 in stead of $index==-1 consistantly
Diffstat (limited to 'tests/chan.test')
-rw-r--r-- | tests/chan.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/chan.test b/tests/chan.test index 4efec11..49afdc6 100644 --- a/tests/chan.test +++ b/tests/chan.test @@ -173,7 +173,7 @@ test chan-16.9 {chan command: pending input subcommand} -setup { lappend ::chan-16.9-data $r $l $e $b $i - if {$r != -1 || $e || $l || !$b || $i > 128} { + if {$r >= 0 || $e || $l || !$b || $i > 128} { set data [read $sock $i] lappend ::chan-16.9-data [string range $data 0 2] lappend ::chan-16.9-data [string range $data end-2 end] |