From 7d63a7d128abd46b8393464321eabea321c4d2ba Mon Sep 17 00:00:00 2001
From: WuYunlong <xzsyeb@126.com>
Date: Tue, 4 Feb 2020 16:34:11 +0800
Subject: [PATCH] Add tcl regression test in scripting.tcl to reproduce memory
 leak.

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

diff --git a/tests/unit/scripting.tcl b/tests/unit/scripting.tcl
index 2543a0377..fb36d0b80 100644
--- a/tests/unit/scripting.tcl
+++ b/tests/unit/scripting.tcl
@@ -741,3 +741,8 @@ start_server {tags {"scripting repl"}} {
     }
 }
 
+start_server {tags {"scripting"}} {
+    r script debug sync
+    r eval {return 'hello'} 0
+    r eval {return 'hello'} 0
+}