Cluster test: helpers/onlydots.tcl: detect EOF and exit.

2025-07-27 22:41:56 +00:00 · 2014-10-08 10:17:01 +02:00
parent 079662fca9
commit 07963b21e3
1 changed files with 3 additions and 1 deletions
--- a/tests/cluster/tests/helpers/onlydots.tcl
+++ b/tests/cluster/tests/helpers/onlydots.tcl
@@ -7,7 +7,9 @@ fconfigure stdin -buffering none

 while 1 {
    set c [read stdin 1]
-    if {$c eq {.}} {
+    if {$c eq {}} {
+        exit 0; # EOF
+    } elseif {$c eq {.}} {
        puts -nonewline .
        flush stdout
    }