Test: tcl client, unset deferred var on close.

neuhq · Jun 18, 2014 · 9162b5f · 9162b5f
1 parent 36bbfee
commit 9162b5f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/support/redis.tcl b/tests/support/redis.tcl
@@ -105,6 +105,7 @@ proc ::redis::__method__close {id fd} {
     catch {close $fd}
     catch {unset ::redis::fd($id)}
     catch {unset ::redis::blocking($id)}
+    catch {unset ::redis::deferred($id)}
     catch {unset ::redis::state($id)}
     catch {unset ::redis::statestack($id)}
     catch {unset ::redis::callback($id)}