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