From b0964b7dd989e4cc6d1283d06193633d42364ef9 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Wed, 14 May 2014 00:14:35 +0200
Subject: [PATCH] redis.tcl: return I/O error message when peer closes
 connection.

---
 tests/support/redis.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/support/redis.tcl b/tests/support/redis.tcl
index 36b005a1..fae48eaa 100644
--- a/tests/support/redis.tcl
+++ b/tests/support/redis.tcl
@@ -170,7 +170,10 @@ proc ::redis::redis_read_reply fd {
         - {return -code error [redis_read_line $fd]}
         $ {redis_bulk_read $fd}
         * {redis_multi_bulk_read $fd}
-        default {return -code error "Bad protocol, '$type' as reply type byte"}
+        default {
+            if {$type eq {}} {return -code error "I/O error reading reply"}
+            return -code error "Bad protocol, '$type' as reply type byte"
+        }
     }
 }
 
-- 
GitLab