anchor.diff:           server_children_test/1,
            test_zone_modify/1,
            increment_soa/1,
  -         query_tests/1]).
  +         query_tests/1,
  +         test_geolocation_api/1]).
   
   -include("../include/erldns.hrl").
   -include("../deps/dns/include/dns.hrl").
   all() ->
  -    [mnesia_API_test, json_API_test, server_children_test, test_zone_modify, increment_soa, query_tests].
  +    [mnesia_API_test, json_API_test, server_children_test, test_zone_modify, increment_soa, query_tests,
  +     test_geolocation_api].
   
   init_per_suite(Config) ->
       application:start(erldns_app),
  
positive.code: init_per_testcase(increment_soa, Config) ->
      Config;
  init_per_testcase(query_tests, Config) ->
      Config.
  
  mnesia_API_test(_Config) ->
  
negative.code:               "NAPTR: ~p~n"
                "AFXR: ~p~n",
                [A, B, C, D, E, F, G, H, I, J, K]).
  
  test_geolocation_api(_Config) ->
      erldns_admin_server:create_geogroup(<<"US-EAST">>, <<"US">>, [<<"FL">>, <<"GA">>]),
      true = (length(ets:tab2list(lookup_table)) =:= 2),
      erldns_admin_server:create_geogroup(<<"US-CENTRAL">>, <<"US">>, [<<"OK">>, <<"KS">>]),
      true = (length(ets:tab2list(lookup_table)) =:= 4),
      {error, duplicate_region} = erldns_admin_server:update_geogroup(<<"US-EAST">>, [<<"OK">>]),
      erldns_admin_server:update_geogroup(<<"US-EAST">>, [<<"FL">>]),
      true = (length(ets:tab2list(lookup_table)) =:= 3),
      erldns_admin_server:delete_geogroup(<<"US-EAST">>),
      true = (length(ets:tab2list(lookup_table)) =:= 2).
  