diff --git a/nri-redis/test/Spec/Redis.hs b/nri-redis/test/Spec/Redis.hs index 925657f3..5d6c5786 100644 --- a/nri-redis/test/Spec/Redis.hs +++ b/nri-redis/test/Spec/Redis.hs @@ -375,6 +375,13 @@ queryTests redisHandler = Test.test "eval runs and returns something" <| \() -> do let script = [Redis.script|return 1|] result <- Redis.eval intJsonApi script |> Redis.query testNS |> Expect.succeeds + Expect.equal result 1, + Test.test "eval with arguments runs and returns something" <| \() -> do + let script = [Redis.script| + local a = ${Redis.Key "hi"} + local b = ${Redis.Literal "hello"} + return 1|] + result <- Redis.eval intJsonApi script |> Redis.query testNS |> Expect.succeeds Expect.equal result 1 ] where