anchor.diff:  	Username = ?config(username, Config),
   	Password = ?config(password, Config),
   	SId = diameter:session_id(atom_to_list(?FUNCTION_NAME)),
  -	NAS_AAR = #diameter_nas_app_AAR{'Session-Id' = SId,
  -			'Auth-Application-Id' = ?NAS_APPLICATION_ID ,
  -			'Auth-Request-Type' = ?'DIAMETER_NAS_APP_AUTH-REQUEST-TYPE_AUTHENTICATE_ONLY',
  -			'User-Name' = Username, 'User-Password' = Password},
  -	{ok, Answer} = diameter:call(?SVC, nas_app_test, NAS_AAR, []),
  +	Answer = diameter_authentication(SId, Username, Password),
   	true = is_record(Answer, diameter_nas_app_AAA),
   	OriginHost = list_to_binary("ocs.sigscale.com"),
   	OriginRealm = list_to_binary("sigscale.com"),
  
positive.code: 		{rport, RemPort},
  		{reuseaddr, true}
  		| [{ip, LocalAddr}]]}].
  
negative.code: 			'Auth-Request-Type' = ?'DIAMETER_NAS_APP_AUTH-REQUEST-TYPE_AUTHENTICATE_ONLY',
  			'Origin-Host' = OriginHost, 'Origin-Realm' = OriginRealm} = Answer,
  	RequestNum = 0,
  	Answer0 = diameter_accounting_start(SId, Username, RequestNum),
  	true = is_record(Answer0, diameter_cc_app_CCA),
  	#diameter_cc_app_CCA{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  			'Auth-Application-Id' = ?CC_APPLICATION_ID,
  			'CC-Request-Type' = ?'DIAMETER_CC_APP_CC-REQUEST-TYPE_INITIAL_REQUEST',
  			'CC-Request-Number' = RequestNum} = Answer0,
  	NewRequestNum = RequestNum + 1,
  	Answer1 = diameter_accounting_stop(SId, Username, NewRequestNum),
  	true = is_record(Answer1, diameter_cc_app_CCA),
  	#diameter_cc_app_CCA{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  			'Auth-Application-Id' = ?CC_APPLICATION_ID,
  