anchor.diff:  	A1 = radius_attributes:add(?ServiceType, 12, A0),
   	A2 = radius_attributes:add(?NasPortId, "wlan1", A1),
   	A3 = radius_attributes:add(?NasPortType, 19, A2),
  -	A4 = radius_attributes:add(?UserName, PeerID, A3),
  +	A4 = radius_attributes:add(?UserName, binary_to_list(PeerID), A3),
   	A5 = radius_attributes:add(?AcctSessionId, "826005e1", A4),
   	A6 = radius_attributes:add(?CallingStationId, CallingStationId, A5),
   	A7 = radius_attributes:add(?CalledStationId, CalledStationId, A6),
  
positive.code: 	[{userdata, [{doc, "Diameter authentication failure when subscriber has a balance less than 0"}]}].
  
  out_of_credit_diameter(Config) ->
  	UserName = "Axl Rose",
  	Password = "Guns&Roses",
  	ProdID = ?config(product_id, Config),
  	Buckets = [#bucket{units = cents, remain_amount = 2290}], % subscription total price
  	{ok, _} = ocs:add_service(UserName, Password, ProdID, [], Buckets, []),
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	NAS_AAR = #diameter_nas_app_AAR{'Session-Id' = SId,
  
negative.code: 	A1 = radius_attributes:add(?ServiceType, 2, A0),
  	A2 = radius_attributes:add(?NasPortId, "wlan1", A1),
  	A3 = radius_attributes:add(?NasPortType, 19, A2),
  	A4 = radius_attributes:add(?UserName, binary_to_list(PeerID), A3),
  	A5 = radius_attributes:add(?AcctSessionId, "826005e0", A4),
  	A6 = radius_attributes:add(?CallingStationId, CallingStationId, A5),
  	A7 = radius_attributes:add(?CalledStationId, CalledStationId, A6),
  	A8 = radius_attributes:add(?UserPassword, UserPassword, A7),
  	A9 = radius_attributes:add(?NasIdentifier, NasId, A8),
  erlang:display({?MODULE, ?LINE, A9}),
  	AccessReqest = #radius{code = ?AccessRequest, id = Id,
  			authenticator = Authenticator, attributes = A9},
  	AccessReqestPacket= radius:codec(AccessReqest),
  