anchor.diff:      end,
       [put(Key, Value) || {Key,Value} <- XX],
       ok.
  +
  +simple_all_keys(Config) when is_list(Config) ->
  +    erase(),
  +    ok = simple_all_keys_add_loop(1000),
  +    [] = erlang:get_keys(),
  +    [] = erlang:get(),
  +    ok.
  +
  +simple_all_keys_add_loop(0) ->
  +    simple_all_keys_del_loop(erlang:get_keys());
  +simple_all_keys_add_loop(N) ->
  +   put(gen_key(N),value),
  +   ok = match_keys(get()),
  +   simple_all_keys_add_loop(N-1).
  +
  +simple_all_keys_del_loop([]) -> ok;
  +simple_all_keys_del_loop([K|Ks]) ->
  +    value = erase(K),
  +    ok = match_keys(get()),
  +    simple_all_keys_del_loop(Ks).
   
   info(doc) ->
       ["Tests process_info(Pid, dictionary)"];
  
positive.code: 		      [A,B,Module,Line]),
  	    exit({no_match,{A,B},Module,Line})
      end.
  
negative.code: suite() -> [{ct_hooks,[ts_install_cth]}].
  
  all() -> 
      [simple, complicated, heavy, simple_all_keys, info].
  
  groups() -> 
      [].
  