commit c1d3aba2613e0cfff06439bde5834369ab78f1c0 · hauleth.dev/esl_hn

+5 -1

lib/esl_hn/cache.ex

···

       35
       35
        
           :ok

     

       36
       36
        
         end

     

       37
       37
        
       

     

       38
       38
       -
         def prune(tid, id), do: :ets.delete(tid, id)

     

       38
       38
       +
         def prune(tid, id) do

     

       39
       39
       +
           :ets.delete(tid, id)

     

       40
       40
       +
       

     

       41
       41
       +
           :ok

     

       42
       42
       +
         end

     

       39
       43
        
       

     

       40
       44
        
         def prune_all(tid, ids) do

     

       41
       45
        
           for id <- ids, do: :ets.delete(tid, id)

+45

test/esl_hn/cache_test.exs

···

       34
       34
        
             end

     

       35
       35
        
           end

     

       36
       36
        
         end

     

       37
       37
       +
       

     

       38
       38
       +
         describe "get/3" do

     

       39
       39
       +
           test "default value for non-existent keys is `nil`" do

     

       40
       40
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       41
       41
       +
       

     

       42
       42
       +
             assert nil == @subject.get(tid, :non_existent)

     

       43
       43
       +
           end

     

       44
       44
       +
       

     

       45
       45
       +
           property "fetching non-existent data returns default value" do

     

       46
       46
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       47
       47
       +
       

     

       48
       48
       +
             check all(key <- term(), data <- term()) do

     

       49
       49
       +
               assert data == @subject.get(tid, key, data)

     

       50
       50
       +
             end

     

       51
       51
       +
           end

     

       52
       52
       +
       

     

       53
       53
       +
           property "fetching existing data returns that data" do

     

       54
       54
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       55
       55
       +
       

     

       56
       56
       +
             check all(key <- term(), data <- term()) do

     

       57
       57
       +
               assert :ok == @subject.write(tid, key, data)

     

       58
       58
       +
       

     

       59
       59
       +
               assert data == @subject.get(tid, key)

     

       60
       60
       +
             end

     

       61
       61
       +
           end

     

       62
       62
       +
         end

     

       63
       63
       +
       

     

       64
       64
       +
         describe "prune/2" do

     

       65
       65
       +
           test "removing non-existent data is no-op" do

     

       66
       66
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       67
       67
       +
       

     

       68
       68
       +
             assert :ok == @subject.prune(tid, :non_existent)

     

       69
       69
       +
           end

     

       70
       70
       +
       

     

       71
       71
       +
           property "we can read written data" do

     

       72
       72
       +
             assert {:ok, _pid, tid} = start_supervised(@subject)

     

       73
       73
       +
       

     

       74
       74
       +
             check all(key <- term(), data <- term()) do

     

       75
       75
       +
               assert :ok == @subject.write(tid, key, data)

     

       76
       76
       +
               assert {:ok, data} == @subject.fetch(tid, key)

     

       77
       77
       +
               assert :ok == @subject.prune(tid, key)

     

       78
       78
       +
               assert :error == @subject.fetch(tid, key)

     

       79
       79
       +
             end

     

       80
       80
       +
           end

     

       81
       81
       +
         end

     

       37
       82
        
       end