anchor.diff:  					    mnesia:read(sess_cache, 
   							Key, read) 
   				    end) of
  -		{atomic, [Session]} -> Session;
  -		_ -> undefined
  +		{atomic, [{sess_cache, Key, Value}]} -> 
  +		    Value;
  +		_ -> 
  +		    undefined
   	    end
  -    end.
  +	end.
   
   update(Cache, Key, Value) ->
  -    io:format("~p~n",[?LINE]),
       case session_cb() of
   	list ->
   	    Cache ! {update, Key, Value};
  
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: %% Description: Initialization before each test case
  %%--------------------------------------------------------------------
  init_per_testcase(session_cache_process_list, Config) ->
      init_customized_session_cache(list, Config);
  
  init_per_testcase(session_cache_process_mnesia, Config) ->
      mnesia:start(),
      init_customized_session_cache(mnesia, Config);
  
  init_per_testcase(reuse_session_expired, Config0) ->
      Config = lists:keydelete(watchdog, 1, Config0),
  