Add regression test for issue #1939

1 files changed, 12 insertions, 0 deletions

diff --git a/tests/unit/scripting.tcl b/tests/unit/scripting.tcl
index d0c6f5d7a..07016bc04 100644
--- a/tests/unit/scripting.tcl
+++ b/tests/unit/scripting.tcl
@@ -363,6 +363,18 @@ start_server {tags {"scripting"}} {
         catch { r eval { return "hello" } -12 } e
         set e
     } {ERR Number of keys can't be negative}
+
+    test {Correct handling of reused argv (issue #1939)} {
+        r eval {
+              for i = 0, 10 do
+                  redis.call('SET', 'a', '1')
+                  redis.call('MGET', 'a', 'b', 'c')
+                  redis.call('EXPIRE', 'a', 0)
+                  redis.call('GET', 'a')
+                  redis.call('MGET', 'a', 'b', 'c')
+              end
+        } 0
+    }
 }
 
 # Start a new server since the last test in this stanza will kill the