anchor.diff:      ]}.
   
   
  +query_test_() ->
  +    {foreach,
  +    fun() ->
  +        Res = setup(),
  +        ok = teles_data_manager:add_object(test, foo, bar),
  +        ok = teles_data_manager:associate(test, foo, 47.1, 120.2, a),
   
  +        ok = teles_data_manager:add_object(test, bar, bar),
  +        ok = teles_data_manager:associate(test, bar, 47.2, 120.3, a),
  +
  +        ok = teles_data_manager:add_object(test, baz, bar),
  +        ok = teles_data_manager:associate(test, baz, 47.2, 120.4, a),
  +        Res
  +    end,
  +    fun cleanup/1,
  +    [fun(_) ->
  +        ?_test(begin
  +            P = rstar_geometry:point2d(47, 120, undefined),
  +            Res = teles_data_manager:query_nearest(test, P, 3),
  +            ?assertEqual({ok, [bar, baz, foo]}, Res)
  +        end)
  +    end,
  +    fun(_) ->
  +        ?_test(begin
  +            P = rstar_geometry:point2d(47, 120, undefined),
  +            Res = teles_data_manager:query_around(test, P, 0.4),
  +            ?assertEqual({ok, [bar, foo]}, Res)
  +        end)
  +    end,
  +    fun(_) ->
  +        ?_test(begin
  +            Box = #geometry{dimensions=2,
  +                        mbr=[{47,48}, {120,121}]},
  +            Res = teles_data_manager:query_within(test, Box),
  +            ?assertEqual({ok, [bar, baz, foo]}, Res)
  +        end)
  +    end
  +    ]}.
  +
  +
  +
  
positive.code:         {error, {already_started, Pid}} -> Pid
      end.
  
  cleanup(Pid) -> unlink(Pid), exit(Pid, kill).
  
  
  get_agents_test_() ->
      {setup,
      fun setup/0,
      fun cleanup/1,
      [fun() ->
          ?_test(begin
              Pids = teles_data_manager:get_agents(test),
              ?assertEqual(2, length(Pids))
          end)
      end,
      fun() ->
          ?_test(begin
              [A, B] = teles_data_manager:get_agents(test),
              ?assertEqual(A, teles_data_manager:get_agent(test)),
  
negative.code: 
  
  object_test_() ->
      {foreach,
      fun setup/0,
      fun cleanup/1,
      [fun(_) ->
          ?_test(begin
              {ok, []} = teles_data_manager:list_objects(test),
              ok = teles_data_manager:add_object(test, foo, bar),
              {ok, [foo]} = teles_data_manager:list_objects(test),
              ok = teles_data_manager:delete(test, foo),
              {ok, []} = teles_data_manager:list_objects(test)
          end)
      end
      ]}.
  
  
  association_test_() ->
      {foreach,
      fun setup/0,
      fun cleanup/1,
      [fun(_) ->
          ?_test(begin
              ok = teles_data_manager:add_object(test, foo, bar),
              {ok, foo, bar, []} = teles_data_manager:list_associations(test, foo),
  