anchor.diff:  -spec get_zone_with_records(dns:dname()) -> {ok, #zone{}} | {error, zone_not_found}.
   get_zone_with_records(Name) ->
     NormalizedName = normalize_name(Name),
  -  case ets:lookup(zones, NormalizedName) of
  +  case erldns_storage:select(zones, NormalizedName) of
       [{NormalizedName, Zone}] -> {ok, Zone};
       _ -> {error, zone_not_found}
     end.
  
positive.code: 
  %% @doc Write the zone into the cache.
  handle_call({put, Name, Zone}, _From, State) ->
    ets:insert(zones, {normalize_name(Name), Zone}),
    {reply, ok, State};
  
  handle_call({put, Name, Sha, Records}, _From, State) ->
    ets:insert(zones, {normalize_name(Name), build_zone(Name, Sha, Records)}),
    {reply, ok, State}.
  
  handle_cast({put, Name, Zone}, State) ->
    ets:insert(zones, {normalize_name(Name), Zone}),
    {noreply, State};
  
  handle_cast({put, Name, Sha, Records}, State) ->
    ets:insert(zones, {normalize_name(Name), build_zone(Name, Sha, Records)}),
    {noreply, State};
  
  handle_cast({delete, Name}, State) ->
    ets:delete(zones, normalize_name(Name)),
    {noreply, State};
  
  handle_cast(Message, State) ->
  
negative.code:     [] -> {error, zone_not_found};
      [_] -> {error, zone_not_found};
      [_|Labels] ->
        case erldns_storage:select(zones, Name) of
          [{Name, Zone}] -> {ok, Zone};
          _ -> find_zone_in_cache(dns:labels_to_dname(Labels))
        end
  