add Cache.put / Cache.fetch tests p.282 #1

apps/info_sys/lib/info_sys/cache.ex

@@ -3,8 +3,8 @@ defmodule InfoSys.Cache do
 
   @clear_interval :timer.seconds(60)
 
-  def put(key, value) do
-      true = :ets.insert(tab_name(__MODULE__), {key, value})
+  def put(name \\ __MODULE__, key, value) do
+    true = :ets.insert(tab_name(name), {key, value})
 
     :ok
   end

apps/info_sys/test/cache_test.exs

@@ -1,11 +1,23 @@
 defmodule InfoSysTest.CacheTest do
   use ExUnit.Case, async: true
   alias InfoSys.Cache
-  @@moduletag :clear_interval: 100
+  @moduletag clear_interval: 100
 
   setup %{test: name, clear_interval: clear_interval} do
     {:ok, pid} = Cache.start_link(name: name, clear_interval: clear_interval)
-    {ok, name: name, pid: pid}
+    {:ok, name: name, pid: pid}
+  end
+
+  test "key value pairs can be put and fetched from cache", %{name: name} do
+    assert :ok = Cache.put(name, :key1, :value1)
+    assert :ok = Cache.put(name, :key2, :value2)
+
+    assert Cache.fetch(name, :key1) == {:ok, :value1}
+    assert Cache.fetch(name, :key2) == {:ok, :value2}
+  end
+
+  test "unfound entry returns error", %{name: name} do
+    assert Cache.fetch(name, :notexists) == :error
   end
 
 end