anchor.diff:          true ->
               ct:fail(zone_no_refresh)
       end.
  +
  +test_master_hidden(_Config) ->
  +    io:format("Master must be configured as 'hidden'"),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, a, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, aaaa, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, srv, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, cname, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, ns, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, mx, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, spf, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, txt, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, soa, [{{10,1,10,51}, 8053}], 10000),
  +    {ok, {dns_rec,
  +          {dns_header,_,_,_,_,_,_,_,_,_},
  +          _,
  +          [],   %%Answer (Should be empty)
  +          [],   %%NS List (Should be empty)
  +          []}} = inet_res:nnslookup("example.com", any, naptr, [{{10,1,10,51}, 8053}], 10000),
  +    try erldns_zone_transfer_worker:send_axfr(<<"example.com">>, {127,0,0,1}, {10,1,10,51}) of
  +        _ ->
  +            io:format("Hmm....should have caught an exit normal for send_afxr!"),
  +            ct:fail(didnt_catch_normal_exit)
  +    catch
  +        exit:normal -> io:format("Successful zone transfer!")
  +    end.
  
positive.code:     OldSerial = 0,
      SOA = SOA0#dns_rrdata_soa{serial = OldSerial},
      Zone = erldns_zone_cache:build_zone(<<"example.com">>, Zone0#zone.allow_notify, Zone0#zone.allow_transfer,
          Zone0#zone.allow_update, Zone0#zone.also_notify, Zone0#zone.notify_source, Zone0#zone.version,
          [Authority#dns_rr{data = SOA}],  Zone0#zone.records),
      %% Put zone back into cache. And wait for it to expire
      ok = erldns_zone_cache:delete_zone(<<"example.com">>),
      ok = erldns_zone_cache:put_zone(<<"example.com">>, Zone),
  
negative.code: init_per_testcase(query_for_axfr, Config) ->
      Config;
  init_per_testcase(zone_refresh_test, Config) ->
      Config;
  init_per_testcase(test_master_hidden, Config) ->
      Config.
  
  query_for_updated_records(_Config) ->
      io:format("NOTE: WILL FAIL IF MASTER IS 'HIDDEN'"),
      Records = erldns_zone_cache:get_records_by_name(<<"example.com">>),
      io:format("Old records: ~p~n", [Records]),
      {ok, Zone} = erldns_zone_cache:get_zone(<<"example.com">>),
  