anchor.diff:  
   new_test_() -> [].
   
  -put_test_() -> [].
  +put_test_() -> 
  +    [{"prop_empty",?_assertEqual([{test,1}],?MODULE:put(test,1,[]))},
  +     {"prop_replace",?_assertEqual([{test,1}],?MODULE:put(test,1,[{test,2}]))},
  +     {"map_empty",?_assertEqual(#{test => 1},?MODULE:put(test,1,#{}))},
  +     {"map_replace",?_assertEqual(#{test => 1},?MODULE:put(test,1,#{test => 2}))},
  +     {"json_empty",?_assertEqual(<<"{\"test\":1}">>,?MODULE:put(<<"test">>,1,<<"{}">>))},
  +     {"json_replace",?_assertEqual(<<"{\"test\":1}">>,?MODULE:put(<<"test">>,1,<<"{\"test\":2}">>))}].
   
   remove_test_() -> [].
   
  
positive.code:                     V1 =:= proplists:get_value(K1,DataObject2)
                      end,
      not lists:any(Is_Member,DataObject1);
  
  is_disjoint(DataObject1, DataObject2) when is_map(DataObject1), is_map(DataObject2) ->
      No_Common_Element = fun(_,_,false) -> false;
                          (K1,V1,true) -> {ok,V1} =/= maps:find(K1,DataObject2)
                     end,
      maps:fold(No_Common_Element,true,DataObject1);
  
  is_disjoint(DataObject1, DataObject2) ->
      is_disjoint(?FROM_JSON(DataObject1), ?FROM_JSON(DataObject2)).
  
  
negative.code:     [{"proplist",?_assert(is_binary(to_binary(?TEST_PROP)))},
       {"map",?_assert(is_binary(to_binary(?TEST_MAP)))},
       {"json",?_assert(is_binary(to_binary(?TEST_JSON)))}].
  
  filter_test_() -> [].
  
  include_test_() -> [].
  
  