anchor.diff:       ?_assertMatch( {ok, _Tree}, yalinka:new(?POINTS) ),
        ?_assertMatch( {ok, _Tre1}, yalinka:new([{I, {X,Y,Z}}||{I, X,Y,Z}<-?POINTS])),
        ?_assertMatch( {ok, _Tre2}, yalinka:new([{I, [X,Y,Z]}||{I, X,Y,Z}<-?POINTS]))
  +    ].
  +
  +new_kd_test_() ->
  +    [
  +     ?_assertMatch( {ok, _Tree}, yalinka:new(?POINTS_5D)),
  +     ?_assertMatch( {ok, _Tree},
  +                    yalinka:new([{I, {A,B,C,D,E}}||{I,A,B,C,D,E}<-?POINTS_5D])),
  +     ?_assertMatch( {ok, _Tree},
  +                    yalinka:new([{I, [A,B,C,D,E]}||{I,A,B,C,D,E}<-?POINTS_5D]))
       ].
   
   size_test_() ->
  
positive.code:     ].
  
  compare_test_() ->
      {ok, Tree1} = yalinka:new([{1,1.0,1.0,1.0},{2,2.0,2.0,2.0},{3,3.0,3.0,3.0},{4,4.0,4.0,4.0}]),
      {ok, Tree2} = yalinka:new([{1,[1.0,1.0,1.0]},{2,[2.0,2.0,2.0]},{3,[3.0,3.0,3.0]},{4,[4.0,4.0,4.0]}]),
      {ok, Tree3} = yalinka:new([{1,1.0,1.0,1.0},{2,2.0,2.0,2.0},{3,3.0,3.0,3.0}]),
      {ok, Tree4} = yalinka:new([{1,1.0,1.0,1.0},{2,2.0,2.0,2.0},{3,3.0,3.0,3.0},{4,4.1,4.0,4.0}]),
      [
       ?_assertEqual( equal, yalinka:compare(Tree1,Tree2)),
       ?_assertEqual( diff,  yalinka:compare(Tree2,Tree3)),
       ?_assertEqual( diff,  yalinka:compare(Tree1,Tree4)),
       ?_assertEqual( equal, yalinka:compare(Tree2,Tree1))
      ].
  
  gettree_test_() ->
  
negative.code:                     yalinka:search(Tree, {11.0, 11.0, 12.0}, 1))
      ].
  
  search_5d_test_() ->
      {ok, Tree} = yalinka:new(?POINTS_5D),
      [
       ?_assertEqual( {ok, [{1, 0.0}]},
                      yalinka:search(Tree, {1.1,1.2,1.3,1.4,1.5})),
       ?_assertEqual( {ok, [{3, 1.0}]},
                      yalinka:search(Tree, {3.1,3.2,4.3,3.4,3.5})),
       ?_assertEqual( {ok, [{3, math:sqrt(2)}]},
                      yalinka:search(Tree, {3.1,4.2,3.3,3.4,4.5}))
      ].
  
  storing_test_() ->
      {ok, Tree} = yalinka:new(?POINTS),
      [
  