anchor.diff:      end,
       erldns_storage:foldl(Iterator, [], zones),
       erldns_storage:select(zones, <<"TEST NAME 1">>),
  -    erldns_storage:delete(zones, <<"TEST NAME 1">>),
  -    erldns_storage:empty_table(zones),
  -    erldns_storage:delete_table(zones),
  +    ok = erldns_storage:delete(zones, <<"TEST NAME 1">>),
  +    ok = erldns_storage:empty_table(zones),
  +    ok = erldns_storage:delete_table(zones),
       io:format("Test completed for json API~n").
   
   server_children_test(_Config) ->
  
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:     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},
      ok = erldns_storage:create(zones),
      ok = erldns_storage:insert(zones, ZONE1),
      ok = erldns_storage:insert(zones, ZONE2),
      ok = erldns_storage:insert(zones, ZONE3),
      ok = erldns_storage:insert(zones, ZONE4),
      ok = erldns_storage:insert(zones, ZONE5),
      %%Iterate through table and see all the entrys.
      Iterator =  fun(Rec,_)->
          io:format("~p~n",[Rec]),
  