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, CallingStationId, A3),
  +	A4 = radius_attributes:add(?UserName, binary_to_list(UserName), 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(?NasIdentifier, NasId, A7),
  +	A8 = radius_attributes:add(?UserPassword, UserPassword, A7),
  +	A9 = radius_attributes:add(?NasIdentifier, NasId, A8),
   	AccessReqest = #radius{code = ?AccessRequest, id = Id,
  -			authenticator = Authenticator, attributes = A8},
  +			authenticator = Authenticator, attributes = A9},
   	AccessReqestPacket= radius:codec(AccessReqest),
   	ok = gen_udp:send(Socket, AuthAddress, AuthPort, AccessReqestPacket),
   	{ok, {AuthAddress, AuthPort, AccessAcceptPacket}} = gen_udp:recv(Socket, 0),
   	#radius{code = ?AccessAccept, id = Id,
   			attributes = Attributes} = radius:codec(AccessAcceptPacket),
   	RadiusAttributes = radius_attributes:codec(Attributes),
  -	RadiusReserveSessionTime = radius_attributes:fetch(?SessionTimeout, RadiusAttributes),
  -	{ok, _} = ocs:add_client({127, 0, 0, 1}, 3799, radius, SharedSecret, true).
  +	RadiusReserveSessionTime = radius_attributes:fetch(?SessionTimeout, RadiusAttributes).
   
   client_authorized() ->
   	[{userdata, [{doc, "Authorize a Diameter Peer"}]}].
  
positive.code: 	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	#service{name = PeerID,
  			password = PeerPassword} =  add_service(ProdRef),
  	B1 = bucket(octets, rand:uniform(100000)),
  	_BId = add_bucket(ProdRef, B1),
  
negative.code: 	diameter:add_transport(SvcName, {connect, Opts}).
  
  %% @hidden
  client_service_opts(Config, HostIp) ->
  	[{'Origin-Host', ?config(host, Config)},
  			{'Origin-Realm', ?config(realm, Config)},
  			{'Host-IP-Address', [HostIp]},
  