anchor.diff:  init_per_testcase(server_children_test, Config) ->
       Config;
   init_per_testcase(test_zone_modify, Config) ->
  +    application:set_env(erldns, storage, [{type, erldns_storage_mnesia}, {dir, "db"}]),
  +    application:set_env(mnesia, dir, "/opt/erl-dns/test/test_db1"),
       Config;
   init_per_testcase(query_tests, Config) ->
       Config.
  
positive.code: 
  init_per_testcase(mnesia_API_test, Config) ->
      application:set_env(erldns, storage, [{type, erldns_storage_mnesia}, {dir, "db"}]),
      Config;
  init_per_testcase(json_API_test, Config) ->
      application:set_env(erldns, storage, [{type, erldns_storage_json}]),
  
negative.code:     io:format("Test completed for server_children~n").
  
  test_zone_modify(_Config) ->
      erldns_storage_mnesia = erldns_config:storage_type(),
      ok = erldns_storage:create(schema),
      ok = erldns_storage:create(zones),
      {ok, _} = erldns_storage:load_zones("/opt/erl-dns/priv/example.zone.json"),
      [ok,ok] = erldns_zone_cache:add_record(<<"example.com">>,
          {dns_rr,<<"example.com">>,1,1,3600,{dns_rrdata_a,{7,7,7,7}}}),
      [ok,ok] = erldns_zone_cache:update_record(<<"example.com">>,
          {dns_rr,<<"example.com">>,1,1,3600,{dns_rrdata_a,{7,7,7,7}}},
          {dns_rr,<<"example.com">>,1,1,3600,{dns_rrdata_a,{77,77,77,77}}}),
      [ok,ok] = erldns_zone_cache:delete_record(<<"example.com">>,
          {dns_rr,<<"example.com">>,1,1,3600,{dns_rrdata_a,{77,77,77,77}}}).
  
  query_tests(_Config) ->
  