From 65398b064797ae1f9f6cb0ec51a477d78c3feefb Mon Sep 17 00:00:00 2001
From: Paddy Byers <paddy.byers@gmail.com>
Date: Sun, 17 Aug 2014 15:32:26 +0100
Subject: [PATCH] Add regression test for issue #1939

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

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