anchor.diff:  all() ->
   	[radius_accounting, radius_disconnect_session,
   	radius_multisession_disallowed, radius_multisession,
  -	diameter_accounting, diameter_disconnect_session,
  -	diameter_sms].
  +	diameter_scur, diameter_scur_depletion,
  +	diameter_ecur].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 			'Granted-Service-Unit' = [GrantedUnits1]} = MultiServices_CC1,
  	#'3gpp_ro_Granted-Service-Unit'{'CC-Total-Octets' = [Grant1]} = GrantedUnits1,
  	RequestNum2 = RequestNum1 + 1,
  	Answer2 = diameter_accounting_interim(SId, Username, RequestNum2, Grant1 + 123),
  	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_UPDATE_REQUEST',
  
negative.code: 	{ok, #service{}} = ocs:add_service(CallingParty, Password, ProdRef, []),
  	B1 = bucket(messages, Balance),
  	_BId = add_bucket(ProdRef, B1),
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	Subscription_Id = #'3gpp_ro_Subscription-Id'{
  			'Subscription-Id-Type' = ?'3GPP_SUBSCRIPTION-ID-TYPE_END_USER_E164',
  			'Subscription-Id-Data' = CallingParty},
  	RequestedUnits = #'3gpp_ro_Requested-Service-Unit' {
  			'CC-Service-Specific-Units' = [1]},
  	ServiceInformation = #'3gpp_ro_Service-Information'{
  			'SMS-Information' = [#'3gpp_ro_SMS-Information'{
  			'Recipient-Info' = [#'3gpp_ro_Recipient-Info'{
  