feature(redis): lua script words

[factor.git] / extra / redis / command-writer / command-writer-tests.factor

diff --git a/extra/redis/command-writer/command-writer-tests.factor b/extra/redis/command-writer/command-writer-tests.factor
index 8c3270c876b474b284bf17bea6a3a8e24ba539bb..9edf1c458825d07a2b6991ffadfafb66254a05aa 100644 (file)
--- a/extra/redis/command-writer/command-writer-tests.factor
+++ b/extra/redis/command-writer/command-writer-tests.factor
@@ -3,7 +3,7 @@
 USING: tools.test redis.command-writer io.streams.string ;
 IN: redis.command-writer.tests
 
-#! Connection
+! Connection
 { "*1\r\n$4\r\nQUIT\r\n" }
 [ [ quit ] with-string-writer ] unit-test
 
@@ -13,7 +13,7 @@ IN: redis.command-writer.tests
 { "*2\r\n$4\r\nAUTH\r\n$8\r\npassword\r\n" }
 [ [ "password" auth ] with-string-writer ] unit-test
 
-#! String values
+! String values
 { "*3\r\n$3\r\nSET\r\n$3\r\nkey\r\n$3\r\nfoo\r\n" }
 [ [ "foo" "key" set ] with-string-writer ] unit-test
 
@@ -50,7 +50,7 @@ IN: redis.command-writer.tests
 { "*2\r\n$4\r\nTYPE\r\n$3\r\nkey\r\n" }
 [ [ "key" type ] with-string-writer ] unit-test
 
-#! Key space
+! Key space
 { "*2\r\n$4\r\nKEYS\r\n$4\r\npat*\r\n" }
 [ [ "pat*" keys ] with-string-writer ] unit-test
 
@@ -73,7 +73,7 @@ IN: redis.command-writer.tests
 { "*3\r\n$6\r\nEXPIRE\r\n$3\r\nkey\r\n$1\r\n7\r\n" }
 [ [ 7 "key" expire ] with-string-writer ] unit-test
 
-#! Lists
+! Lists
 { "*3\r\n$5\r\nRPUSH\r\n$3\r\nkey\r\n$3\r\nfoo\r\n" }
 [ [ "foo" "key" rpush ] with-string-writer ] unit-test
 
@@ -104,7 +104,7 @@ IN: redis.command-writer.tests
 { "*2\r\n$4\r\nRPOP\r\n$3\r\nkey\r\n" }
 [ [ "key" rpop ] with-string-writer ] unit-test
 
-#! Sets
+! Sets
 { "*3\r\n$4\r\nSADD\r\n$3\r\nkey\r\n$3\r\nfoo\r\n" }
 [ [ "foo" "key" sadd ] with-string-writer ] unit-test
 
@@ -140,7 +140,7 @@ IN: redis.command-writer.tests
 { "*2\r\n$8\r\nSMEMBERS\r\n$3\r\nkey\r\n" }
 [ [ "key" smembers ] with-string-writer ] unit-test
 
-#! Hashes
+! Hashes
 { "*3\r\n$4\r\nHDEL\r\n$3\r\nkey\r\n$5\r\nfield\r\n" }
 [ [ "field" "key" hdel ] with-string-writer ] unit-test
 
@@ -201,7 +201,7 @@ IN: redis.command-writer.tests
 { "*2\r\n$5\r\nHVALS\r\n$3\r\nkey\r\n" }
 [ [ "key" hvals ] with-string-writer ] unit-test
 
-#! Multiple db
+! Multiple db
 { "*2\r\n$6\r\nSELECT\r\n$1\r\n2\r\n" }
 [ [ 2 select ] with-string-writer ] unit-test
 
@@ -214,9 +214,9 @@ IN: redis.command-writer.tests
 { "*1\r\n$8\r\nFLUSHALL\r\n" }
 [ [ flushall ] with-string-writer ] unit-test
 
-#! Sorting
+! Sorting
 
-#! Persistence control
+! Persistence control
 { "*1\r\n$4\r\nSAVE\r\n" } [ [ save ] with-string-writer ] unit-test
 
 { "*1\r\n$6\r\nBGSAVE\r\n" } [ [ bgsave ] with-string-writer ] unit-test
@@ -225,7 +225,21 @@ IN: redis.command-writer.tests
 
 { "*1\r\n$8\r\nSHUTDOWN\r\n" } [ [ shutdown ] with-string-writer ] unit-test
 
-#! Remote server control
+! Remote server control
 { "*1\r\n$4\r\nINFO\r\n" } [ [ info ] with-string-writer ] unit-test
 
 { "*1\r\n$7\r\nMONITOR\r\n" } [ [ monitor ] with-string-writer ] unit-test
+
+! Lua
+
+{ "*3\r\n$6\r\nSCRIPT\r\n$4\r\nLOAD\r\n$8\r\nreturn 1\r\n" } [ [ "return 1" script-load ] with-string-writer ] unit-test
+
+{ "*3\r\n$6\r\nSCRIPT\r\n$6\r\nEXISTS\r\n$9\r\nfake-hash\r\n" } [ [ { "fake-hash" } script-exists ] with-string-writer ] unit-test
+
+{ "*2\r\n$6\r\nSCRIPT\r\n$5\r\nFLUSH\r\n" } [ [ script-flush ] with-string-writer ] unit-test
+
+{ "*2\r\n$6\r\nSCRIPT\r\n$4\r\nKILL\r\n" } [ [ script-kill ] with-string-writer ] unit-test
+
+{ "*6\r\n$4\r\nEVAL\r\n$36\r\nreturn { KEYS[1], KEYS[2], ARGV[1] }\r\n$1\r\n2\r\n$1\r\na\r\n$1\r\nb\r\n$3\r\n100\r\n" } [
+    [ "return { KEYS[1], KEYS[2], ARGV[1] }" { "a" "b" } { 100 } script-eval ] with-string-writer
+] unit-test