feature(redis): lua script words

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

diff --git a/extra/redis/redis-tests.factor b/extra/redis/redis-tests.factor
index 71cc81ae0b67eb26a7ecbb7f41afd962a6183fdb..249b93cb265001ec12b38b2e702fc92aebf33031 100644 (file)
--- a/extra/redis/redis-tests.factor
+++ b/extra/redis/redis-tests.factor
@@ -66,3 +66,17 @@ IN: redis.tests
         [ "hello" redis-incr ] [ drop t ] recover
     ] with-redis-test
 ] unit-test
+
+{ "e0e1f9fabfc9d4800c877a703b823ac0578ff8db" } [
+    [ "return 1" redis-script-load ] with-redis-test
+] unit-test
+
+{ { 0 0 } } [
+    [ { "foo" "bar" } redis-script-exists ] with-redis-test
+] unit-test
+
+{ } [ [ redis-script-flush ] with-redis-test ] unit-test
+
+{ { "foo" } } [
+    [ "return { ARGV[1] }" { } { "foo" } redis-script-eval ] with-redis-test
+] unit-test