From e9d97b453e6f62938d6a89150110a67e0d0a216b Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 30 Aug 2013 08:59:11 +0200
Subject: [PATCH] Test: Lua stack leak regression test added.

---
 tests/unit/scripting.tcl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/tests/unit/scripting.tcl b/tests/unit/scripting.tcl
index 3e08f630c..ec5230bfe 100644
--- a/tests/unit/scripting.tcl
+++ b/tests/unit/scripting.tcl
@@ -282,6 +282,21 @@ start_server {tags {"scripting"}} {
         assert {$rand2 ne $rand3}
     }
 
+    test {EVAL does not leak in the Lua stack} {
+        r set x 0
+        # Use a non blocking client to speedup the loop.
+        set rd [redis_deferring_client]
+        for {set j 0} {$j < 10000} {incr j} {
+            $rd eval {return redis.call("incr",KEYS[1])} 1 x
+        }
+        for {set j 0} {$j < 10000} {incr j} {
+            $rd read
+        }
+        assert {[s used_memory_lua] < 1024*100}
+        $rd close
+        r get x
+    } {10000}
+
     test {EVAL processes writes from AOF in read-only slaves} {
         r flushall
         r config set appendonly yes
-- 
GitLab