EVALSHA_RO and EVAL_RO Commands (#8820)

* EVALSHA_RO and EVAL_RO Commands

Added new readonly versions of EVAL
and EVALSHA.

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/unit/scripting.tcl b/tests/unit/scripting.tcl
index 0efe34cad..d5c876f3d 100644
--- a/tests/unit/scripting.tcl
+++ b/tests/unit/scripting.tcl
@@ -320,6 +320,17 @@ start_server {tags {"scripting"}} {
         r eval {return 'hello' --trailing comment} 0
     } {hello}
 
+    test {EVAL_RO - Successful case} {
+        r set foo bar
+        assert_equal bar [r eval_ro {return redis.call('get', KEYS[1]);} 1 foo]
+    }
+
+    test {EVAL_RO - Cannot run write commands} {
+        r set foo bar
+        catch {r eval_ro {redis.call('del', KEYS[1]);} 1 foo} e
+        set e
+    } {*Write commands are not allowed from read-only scripts*}
+
     test {SCRIPTING FLUSH - is able to clear the scripts cache?} {
         r set mykey myval
         set v [r evalsha fd758d1589d044dd850a6f05d52f2eefd27f033f 1 mykey]