anchor.diff:          ?assertEqual(true, lists:member({imem_meta:schema(),node()}, imem_meta:data_nodes())),
   
           ?Log("----TEST--~p:test_database_operations~n", [?MODULE]),
  -
  +        % timer:sleep(5000),
           ?assertException(throw, {ClEr, {"Table does not exist", non_existing_table}}, table_size(non_existing_table)),
           ?Log("success ~p~n", [table_size_no_exists]),
           ?assertException(throw, {ClEr, {"Table does not exist", non_existing_table}}, table_memory(non_existing_table)),
  
positive.code: dirty_write(Table, Row) when is_atom(Table), is_tuple(Row) ->
      try
          % ?Log("mnesia:dirty_write ~p ~p~n", [Table,Row]),
          %mnesia:dirty_write(Table, Row)
          mnesia_table_action(dirty_write, [Table, Row])
      catch
          exit:{aborted, {no_exists,_}} ->    ?ClientErrorNoLogging({"Table does not exist",Table});
          exit:{aborted, {no_exists,_,_}} ->  ?ClientErrorNoLogging({"Table does not exist",Table});
  
negative.code: handle_cast(_Request, State) ->
      {noreply, State}.
  
  timestamp({Mega, Secs, Micro}) -> Mega*1000000000000 + Secs*1000000 + Micro.
  
  handle_info(snapshot, #state{snap_interval = SnapInterval} = State) ->
      ExistsBkpRootDir = filelib:is_dir("snapshot"),
      if 
          ExistsBkpRootDir -> 
              ok;
          true ->
              ok = file:make_dir("snapshot")
      end,
      Tabs = [T || T <- mnesia:system_info(tables), re:run(atom_to_list(T), "(.*@.*)|schema") =:= nomatch],
      [(fun() ->
          % io:format(user, "snapshotting ~p~n", [T]),
          [#user_properties {
              table = T
              , last_write = Wt
  