anchor.diff:  -module(wallaroo_tree).
   % XXX:  should store/3 and friends be exported?
  --export([empty/0, store/3, find/2, has/2, get_path/3, put_path/4, del_path/3, put_tree/2, diff/2, resolve/3, children/2]).
  +-export([empty/0, store/3, find/2, has/2, get_path/3, fetch_path/3, put_path/4, del_path/3, put_tree/2, diff/2, resolve/3, children/2]).
   
   -define(DEBUG, yes).
   
  
positive.code: 	    {value, unwrap_object(V)}
      end.
  
  %% @doc stores Val in Tree at PathPart, assuming that no component of PathPart is already in Tree; returns hash for updated Tree
  fold_absent([Key], {?TAG_OBJECT, _}=Val, {?TAG_BUCKETED_TREE, _, _}=Tree, _, StoreMod) ->
      VH = element(1, wallaroo_db:hash_and_store(Val, StoreMod)),
  
negative.code:      {setup,
        fun() -> test_setup(), second_fixture() end,
        fun(_) -> test_teardown() end,
        [?_assertEqual(X, wallaroo_tree:fetch_path([x,y,z,list_to_atom("element_" ++ integer_to_list(X))], find_fixture_tree(sft), wallaroo_store_ets)) || X <- lists:seq(1,?BIG_TEST_SIZE)]}}.
  	      
  
  -endif.
  