4f507b8146
This helps us make sure we only have one thread accessing a particular repo at a time and hopefully help us be more in line with usual erlang practices.
47 lines
1.2 KiB
Erlang
47 lines
1.2 KiB
Erlang
-module(geef_object).
|
|
|
|
-ifdef(TEST).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-endif.
|
|
|
|
-include("geef_records.hrl").
|
|
|
|
-export([lookup/2, id/1]).
|
|
|
|
-spec lookup(pid(), oid() | iolist()) -> object().
|
|
lookup(Repo, #oid{oid=Oid}) ->
|
|
case geef_repo:lookup_object(Repo, Oid) of
|
|
{ok, Type, Handle} ->
|
|
{ok, #object{type=Type, handle=Handle}};
|
|
Other ->
|
|
Other
|
|
end;
|
|
lookup(Repo, Id) ->
|
|
lookup(Repo, geef_oid:parse(Id)).
|
|
|
|
id(#object{handle=Handle}) ->
|
|
case geef:object_id(Handle) of
|
|
{ok, Oid} ->
|
|
#oid{oid=Oid};
|
|
Other ->
|
|
Other
|
|
end.
|
|
|
|
-ifdef(TEST).
|
|
|
|
lookup_test() ->
|
|
{ok, Repo} = geef_repo:open(".."),
|
|
{ok, #object{type=commit}} = lookup(Repo, geef_oid:parse("b5b68cce8b92ca0e7bd48430617ac10c0f2c2923")),
|
|
{ok, #object{type=commit}} = lookup(Repo, "b5b68cce8b92ca0e7bd48430617ac10c0f2c2923"),
|
|
{ok, #object{type=commit}} = lookup(Repo, ["b5b68cce8b92ca0e7", "bd48430617ac10c0f2c2923"]),
|
|
{ok, #object{type=commit}} = lookup(Repo, <<"b5b68cce8b92ca0e7bd48430617ac10c0f2c2923">>).
|
|
|
|
id_test() ->
|
|
{ok, Repo} = geef_repo:open(".."),
|
|
Sha = <<"b5b68cce8b92ca0e7bd48430617ac10c0f2c2923">>,
|
|
Id = geef_oid:parse(Sha),
|
|
{ok, Commit = #object{type=commit}} = lookup(Repo, Sha),
|
|
Id = id(Commit).
|
|
|
|
-endif.
|