diff options
author | antirez <antirez@gmail.com> | 2014-05-20 16:20:16 +0200 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2014-05-20 17:45:50 +0200 |
commit | 122157f220e11c8053d2f8b3d5bda12f05e7d039 (patch) | |
tree | 026da4f17d8d8f3a97c3786f6a4395d46dad0b4d | |
parent | d357e3ee8f791907a7c14ed87d952cf2cb83803b (diff) | |
download | redis-122157f220e11c8053d2f8b3d5bda12f05e7d039.tar.gz |
Regression test for issue #1764.
-rw-r--r-- | tests/unit/scripting.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/unit/scripting.tcl b/tests/unit/scripting.tcl index 8916d2351..922177eff 100644 --- a/tests/unit/scripting.tcl +++ b/tests/unit/scripting.tcl @@ -326,6 +326,19 @@ start_server {tags {"scripting"}} { assert {[r mget a b c d] eq {1 2 3 4}} assert {[r spop myset] eq {}} } + + test {Call Redis command with many args from Lua (issue #1764)} { + r eval { + local i + local x={} + redis.call('del','mylist') + for i=1,100 do + table.insert(x,i) + end + redis.call('rpush','mylist',unpack(x)) + return redis.call('lrange','mylist',0,-1) + } 0 + } {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100} } # Start a new server since the last test in this stanza will kill the |