anchor.diff:  	ok = ocs_test_lib:initialize_db(),
   	ok = ocs_test_lib:start(),
   	{ok, ProdID} = ocs_test_lib:add_product(),
  -	NasID = atom_to_list(node()),
  -	Config1 = [{nas_id, NasID} | Config],
   	{ok, EnvList} = application:get_env(ocs, diameter),
   	{acct, [{Address, Port, Options } | _]} = lists:keyfind(acct, 1, EnvList),
   	true = diameter:subscribe(?SVC_ACCT),
  
positive.code: 			'CC-Total-Octets' = [375123456]},
  	MultiServices_CC = #'3gpp_ro_Multiple-Services-Credit-Control'{
  			'Used-Service-Unit' = [UsedUnits],
  			'Requested-Service-Unit' = [RequestedUnits]}, 
  	ServiceInformation = #'3gpp_ro_Service-Information'{'IMS-Information' =
  			[#'3gpp_ro_IMS-Information'{
  					'Node-Functionality' = ?'3GPP_NODE-FUNCTIONALITY_AS',
  
negative.code: 			authenticator = DiscAckAuth, attributes = DiscAckAttrBin},
  	DiscAck = radius:codec(DiscAckRec),
  	ok = gen_udp:send(Socket, OCSAddr, OCSPort, DiscAck),
  	ok =  gen_udp:close(Socket).
  
  access_accept(Socket, Address, Port, RadID) ->
  	receive_radius(?AccessAccept, Socket, Address, Port, RadID).
  
  accounting_response(Socket, Address, Port, Secret, RadID, ReqAuth) ->
  	#radius{id = RadID, authenticator = RespAuth,
  		attributes = Attributes}
  		= receive_radius(?AccountingResponse, Socket, Address, Port, RadID),
  	AttributesLength = size(Attributes) + 20,
  	RespAuth = binary_to_list(crypto:hash(md5,
  