anchor.diff:      erldns_storage_mnesia = erldns_config:storage_type(),
       ok = erldns:start(),
       io:format("Loaded and started servers successfully~n"),
  -    timer:sleep(1000),
  +    timer:sleep(2000),
       {ok, _} = inet_res:nnslookup("example.com", any, a, AddressesWithPorts, 10000),
       io:format("Test completed for server_children~n").
  
positive.code:     ZONE3 = #zone{name = <<"TEST NAME 3">>, version = <<"1">>,authority =  [], record_count = 0, records = [], records_by_name = DNSRR, records_by_type = DNSRR},
      ZONE4 = #zone{name = <<"TEST NAME 4">>, version = <<"1">>,authority =  [], record_count = 0, records = [], records_by_name = DNSRR, records_by_type = DNSRR},
      ZONE5 = #zone{name = <<"TEST NAME 5">>, version = <<"1">>,authority =  [], record_count = 0, records = [], records_by_name = DNSRR, records_by_type = DNSRR},
      erldns_storage:create(schema),
      erldns_storage:create(zones),
      mnesia:wait_for_tables([zones], 10000),
      erldns_storage:insert(zones, ZONE1),
      erldns_storage:insert(zones, ZONE2),
      erldns_storage:insert(zones, ZONE3),
      erldns_storage:insert(zones, {<<"Test Name">>, ZONE4}),
      erldns_storage:insert(zones, {<<"Test Name">>, ZONE5}),
      %%Iterate through table and see all the entrys.
      Iterator =  fun(Rec,_)->
          io:format("~p~n",[Rec]),
  
negative.code:         email_addr = <<"test email">>, serial_num = 1, refresh = 1, retry = 1, expiry = 1, nxdomain = <<"test domain">>},
      AUTH3 = #authorities{owner_name = <<"Test Name">>, ttl = 1, class = <<"test calss">>, name_server = <<"Test Name Server">>,
          email_addr = <<"test email">>, serial_num = 1, refresh = 1, retry = 1, expiry = 1, nxdomain = <<"test domain">>},
      ok = erldns_storage:insert(authorities, AUTH1),
      ok = erldns_storage:insert(authorities, AUTH2),
      ok = erldns_storage:insert(authorities, AUTH3),
      erldns_storage:foldl(Iterator, [], authorities),
      erldns_storage:select(authorities, <<"Test Name">>),
      ok = erldns_storage:delete(authorities, AUTH1),
      ok = erldns_storage:empty_table(authorities),
      ok = erldns_storage:delete_table(authorities),
      io:format("Test completed for mnesia API~n").
  
  json_API_test(_Config) ->
  