test clock, and add some dialyzer specs for mem3

1 files changed, 7 insertions, 0 deletions

diff --git a/test/mem3_test.erl b/test/mem3_test.erl
index 99f32ff9..8747cf02 100644
--- a/test/mem3_test.erl
+++ b/test/mem3_test.erl
@@ -16,6 +16,7 @@ all_tests_test_() ->
            {with, Pid,
             [
              fun init/1,
+             fun clock/1,
              fun join_first/1
             ]}
        end}
@@ -42,6 +43,12 @@ init(_Pid) ->
     ?assertEqual(true, Test).
 
 
+clock(_Pid) ->
+    Node = node(),
+    Clock = mem3:clock(),
+    ?assertMatch([{Node, _}], Clock).
+
+
 join_first(_Pid) ->
     mem3:join(first, [{1, a, []}, {2, b, []}]),
     Fullmap = mem3:fullmap(),