diff --git a/include/jid.hrl b/include/jid.hrl index e6d86b8..f1572b8 100644 --- a/include/jid.hrl +++ b/include/jid.hrl @@ -1,7 +1,4 @@ --record(jid, {user = <<>> :: jid:user(), - server = <<>> :: jid:server(), - resource = <<>> :: jid:resource(), - luser = <<>> :: jid:luser(), +-record(jid, {luser = <<>> :: jid:luser(), lserver = <<>> :: jid:lserver(), lresource = <<>> :: jid:lresource() }). diff --git a/src/jid.erl b/src/jid.erl index 0493bbf..1f276e6 100644 --- a/src/jid.erl +++ b/src/jid.erl @@ -75,10 +75,7 @@ make(User, Server, Res) -> {_, error, _} -> error; {_, _, error} -> error; {LUser, LServer, LRes} -> - #jid{user = User, - server = Server, - resource = Res, - luser = LUser, + #jid{luser = LUser, lserver = LServer, lresource = LRes} end. @@ -95,10 +92,7 @@ make_bare(User, Server) -> {error, _} -> error; {_, error} -> error; {LUser, LServer} -> - #jid{user = User, - server = Server, - resource = <<>>, - luser = LUser, + #jid{luser = LUser, lserver = LServer, lresource = <<>>} end. @@ -108,10 +102,7 @@ make_bare(User, Server) -> Server :: lserver(), Resource :: lresource()) -> jid(). make_noprep(LUser, LServer, LResource) -> - #jid{user = LUser, - server = LServer, - resource = LResource, - luser = LUser, + #jid{luser = LUser, lserver = LServer, lresource = LResource}. @@ -157,8 +148,7 @@ from_binary(_) -> from_binary_noprep(J) when is_binary(J), byte_size(J) < ?XMPP_JID_SIZE_LIMIT -> case from_binary_nif(J) of {U, S, R} -> - #jid{user = U, server = S, resource = R, - luser = U, lserver = S, lresource = R}; + #jid{luser = U, lserver = S, lresource = R}; error -> error end; from_binary_noprep(_) -> @@ -185,8 +175,8 @@ to_binary({<<>>, Server}) -> <>; to_binary({Node, Server}) -> <>; -to_binary(#jid{user = User, server = Server, resource = Resource}) -> - to_binary({User, Server, Resource}); +to_binary(#jid{luser = LUser, lserver = LServer, lresource = LResource}) -> + to_binary({LUser, LServer, LResource}); to_binary(Jid) when is_binary(Jid) -> Jid. @@ -256,7 +246,7 @@ to_lus(error) -> (jid()) -> jid(); (error) -> error. to_bare(#jid{} = JID) -> - JID#jid{resource = <<>>, lresource = <<>>}; + JID#jid{lresource = <<>>}; to_bare({U, S, _R}) -> {U, S, <<>>}; to_bare(error) -> @@ -268,13 +258,13 @@ replace_resource(#jid{} = JID, Resource) -> case resourceprep(Resource) of error -> error; LResource -> - JID#jid{resource = Resource, lresource = LResource} + JID#jid{lresource = LResource} end. %% @doc Replaces the resource part of a jid with a new resource, but without normalisation -spec replace_resource_noprep(jid(), resource()) -> jid(). replace_resource_noprep(#jid{} = JID, LResource) -> - JID#jid{resource = LResource, lresource = LResource}. + JID#jid{lresource = LResource}. %% @equiv jid:to_bare(jid:from_binary(BinaryJid)) -spec binary_to_bare(binary()) -> jid() | error. diff --git a/test/jid_SUITE.erl b/test/jid_SUITE.erl index c930717..a06f2ed 100644 --- a/test/jid_SUITE.erl +++ b/test/jid_SUITE.erl @@ -23,7 +23,6 @@ groups() -> binary_noprep_to_jid_fails_with_empty_binary, make_jid_fails_on_binaries_that_are_too_long, make_is_independent_of_the_input_format, - make_noprep_and_make_have_equal_raw_jid, make_noprep_is_independent_of_the_input_format, jid_to_lower_fails_if_any_binary_is_invalid, jid_replace_resource_failes_for_invalid_resource, @@ -98,18 +97,6 @@ make_is_independent_of_the_input_format(_) -> jid:make(U,S,R) == jid:make({U,S,R})), run_property(Prop, 100, 1, 500). -make_noprep_and_make_have_equal_raw_jid(_) -> - Prop = ?FORALL({U, S, R}, - {jid_gen:username(), jid_gen:domain(), jid_gen:resource()}, - begin - #jid{user = U, server = S, resource = R} = jid:make(U, S, R), - #jid{user = U, server = S, resource = R} = jid:make_noprep(U, S, R), - true - end - ), - run_property(Prop, 10, 1, 500). - - make_noprep_is_independent_of_the_input_format(_) -> Prop = ?FORALL({U, S, R}, {jid_gen:username(), jid_gen:domain(), jid_gen:resource()}, @@ -330,7 +317,7 @@ binary_to_jid3(<<>>, N, S, R) -> to_binary(Jid) when is_binary(Jid) -> % sometimes it is used to format error messages Jid; -to_binary(#jid{user = User, server = Server, resource = Resource}) -> +to_binary(#jid{luser = User, lserver = Server, lresource = Resource}) -> to_binary({User, Server, Resource}); to_binary({User, Server}) -> to_binary({User, Server, <<>>}); diff --git a/test/jid_gen.erl b/test/jid_gen.erl index 9c0c29a..772b2b6 100644 --- a/test/jid_gen.erl +++ b/test/jid_gen.erl @@ -23,15 +23,14 @@ jid_struct() -> ?LET({U, S, R}, {username(), domain(), resource()}, - {jid, U, S, R, U, S, R}). + {jid, U, S, R}). from_jid() -> oneof([ {jid_gen:username(), jid_gen:domain(), jid_gen:resource()}, {<<>>, jid_gen:domain(), jid_gen:resource()}, {jid_gen:username(), jid_gen:domain()}, - {jid, jid_gen:username(), jid_gen:domain(), jid_gen:resource(), - jid_gen:username(), jid_gen:domain(), jid_gen:resource()} + {jid, jid_gen:username(), jid_gen:domain(), jid_gen:resource()} ]). jid() ->