anchor.diff:  	OriginHost = list_to_binary("ocs.sigscale.com"),
   	OriginRealm = list_to_binary("sigscale.com").
   
  -pwd_id_radius() ->
  +pwd_id_over_radius() ->
      [{userdata, [{doc, "Send an EAP-pwd-ID/Response to peer"}]}].
   
  -pwd_id_radius(Config) ->
  +pwd_id_over_radius(Config) ->
   	PeerId = <<"23456789">>,
   	MAC = "BB-CC-DD-EE-FF-AA",
   	PeerAuth = list_to_binary(ocs:generate_password()),
  
positive.code: 			UserName, Secret, MAC, ReqAuth2, RadId2, EapMsg),
  	EapId2 = receive_radius_failure(Socket, Address, Port, Secret, ReqAuth2, RadId2).
  
  negotiate_method_radius() ->
  	[{userdata, [{doc, "Send EAP-Nak with alternate methods using RADIUS"}]}].
  
  negotiate_method_radius(Config) ->
  	PeerId = <<"01234567">>,
  	MAC = "FE-DC-BA-AB-CD-EF",
  	PeerAuth = list_to_binary(ocs:generate_password()),
  
negative.code: 			Secret, PeerId, MAC, ReqAuth, EapId, RadId),
  	{error, timeout} = gen_udp:recv(Socket, 0, 2000).
  
  role_reversal_over_radius() ->
  	[{userdata, [{doc, "Send EAP-Request (unsupported role reversal) using RADIUS"}]}].
  
  role_reversal_over_radius(Config) ->
  	PeerId = <<"67890123">>,
  	MAC = "FF-AA-BB-CC-DD-FF",
  	Socket = ?config(socket, Config),
  