Test anonymous function values

Author: cabol

.github/workflows/ci.yml

@@ -44,7 +44,7 @@ jobs:
       - uses: actions/checkout@v3
 
       - name: Start Docker
-        run: docker-compose up --detach
+        run: docker compose up --detach
 
       - name: Install OTP and Elixir
         uses: erlef/setup-beam@v1

test/nebulex_redis_adapter/codec/string_proto_test.exs

@@ -3,11 +3,46 @@ defmodule NebulexRedisAdapter.Serializer.SerializableTest do
 
   alias NebulexRedisAdapter.Serializer.Serializable
 
+  defmodule Cache do
+    use Nebulex.Cache,
+      otp_app: :nebulex_redis_adapter,
+      adapter: NebulexRedisAdapter
+  end
+
   describe "encode/2" do
     test "error: raises Protocol.UndefinedError exception" do
       assert_raise Protocol.UndefinedError, ~r"cannot encode a bitstring to a string", fn ->
         Serializable.encode(<<1::1>>)
       end
     end
   end
+
+  describe "encode/decode" do
+    setup do
+      {:ok, pid} = Cache.start_link()
+
+      on_exit(fn ->
+        :ok = Process.sleep(100)
+
+        if Process.alive?(pid), do: Cache.stop(pid)
+      end)
+
+      {:ok, cache: Cache, name: Cache}
+    end
+
+    test "anonymous function is stored and then returned (not evaluated)" do
+      fun = fn _x, _y ->
+        _ = send(self(), "Hi!")
+
+        {:cont, []}
+      end
+
+      assert Cache.put("fun", fun) == :ok
+      assert value = Cache.get("fun")
+      assert is_function(value, 2)
+      assert value == fun
+      assert Enum.to_list(value) == []
+      assert_receive "Hi!"
+    end
+  end
 end

test/nebulex_redis_adapter/standalone_test.exs

@@ -6,11 +6,12 @@ defmodule NebulexRedisAdapter.StandaloneTest do
 
   setup do
     {:ok, pid} = Cache.start_link()
-    Cache.delete_all()
-    :ok
+
+    _ = Cache.delete_all()
 
     on_exit(fn ->
       :ok = Process.sleep(100)
+
       if Process.alive?(pid), do: Cache.stop(pid)
     end)