gistfile1.erl

open_and_insert_260_test() ->
  test_cleanup(),
  Tree = lists:foldl(fun(N, Tree) ->
      update(lists:concat(["key", N]), lists:concat(["value", N]), Tree)
    end, open("/Users/cliff/data/dmerkle", 4096), lists:seq(1,260)),
  Hash = hash("value200"),
  Hash = find("key200", Tree),
  File = Tree#dmerkle.file,
  error_logger:info_msg("read ~p ~n", [block_server:read_block(File, 4, 8)]),
  block_server:write_block(File, 4, <<8174:64>>),
  timer:sleep(1000),
  error_logger:info_msg("read ~p ~n", [file:read_file("/Users/cliff/data/merkle.idx")]),
  close(Tree),

  error_logger:info_msg("closed~n"),
  NewTree = open("/Users/cliff/data/merkle", 4096),
  error_logger:info_msg("tree ~p~n new tree ~p~n", [Tree, NewTree]),
  timer:sleep(1000),
  Hash2 = hash("value133"),
  Hash2 = find("key133", NewTree),
  close(NewTree).