anchor.diff:      server_verify_client_once_active,
       server_verify_client_once_active_once, client_verify_none_passive,
       client_verify_none_active, client_verify_none_active_once,
  -    %session_cache_process_list, session_cache_process_mnesia,
  +    session_cache_process_list, session_cache_process_mnesia,
       reuse_session, reuse_session_expired,
       server_does_not_want_to_reuse_session, client_renegotiate,
       server_renegotiate, client_renegotiate_reused_session,
  
positive.code:     end.
      
  select_session(Cache, PartialKey) ->
      io:format("~p~n",[?LINE]),
      case session_cb() of
  	list ->
  	    Cache ! {self(),select_session, PartialKey},
  	    receive {Cache, Res} -> Res end;
  	mnesia ->
  	    Sel = fun() ->
  			  mnesia:select(Cache,
  					[{{{PartialKey,'$1'}, '$2'},
  					  [],['$$']}])
  		  end,
  	    {atomic, Res} = mnesia:transaction(Sel),
  
negative.code:     end_per_testcase(default_action, Config);
  end_per_testcase(session_cache_process_mnesia, Config) ->
      application:unset_env(ssl, session_cb),
      application:unset_env(ssl, session_cb_init_args),
      mnesia:stop(),
      ssl:stop(),
      ssl:start(),
      end_per_testcase(default_action, Config);
  end_per_testcase(reuse_session_expired, Config) ->
      application:unset_env(ssl, session_lifetime),
  