anchor.diff:  
   -ifdef(TEST).
   
  +json_to_erlang_ensure_sorting_and_defaults_test() ->
  +    ?assertEqual({"foo.org", [], [], []}, json_to_erlang([{<<"name">>, "foo.org"}, {<<"records">>, []}], [])).
  +
   json_record_to_erlang_test() ->
       erldns_events:start_link(),
       ?assertEqual({}, json_record_to_erlang([])),
  
positive.code:     DistinctRecords = lists:usort(FilteredRecords),
      {Name, Sha, DistinctRecords, parse_json_keys(JsonKeys)}.
  
  parse_json_keys(JsonKeys) ->
      parse_json_keys(JsonKeys, []).
  
  parse_json_keys([], Keys) ->
      Keys;
  parse_json_keys([[{<<"ksk">>, KskBin},
                    {<<"ksk_keytag">>, KskKeytag},
                    {<<"ksk_alg">>, KskAlg},
                    {<<"zsk">>, ZskBin},
                    {<<"zsk_keytag">>, ZskKeytag},
                    {<<"zsk_alg">>, ZskAlg},
                    {<<"inception">>, Inception},
                    {<<"until">>, ValidUntil}]
                   | Rest],
                  Keys) ->
      KeySet =
  
negative.code:     lager:info("Registering custom parsers (modules: ~p)", [Modules]),
      gen_server:call(?SERVER, {register_parsers, Modules}).
  
  %% @doc Register a custom parser module.
  -spec register_parser(module()) -> ok.
  register_parser(Module) ->
      lager:info("Registering custom parser (module: ~p)", [Module]),
  