Add a test for revwalk

test/revwalk_test.erl

@@ -0,0 +1,34 @@
+-module(revwalk_test).
+-compile([export_all]).
+-include_lib("eunit/include/eunit.hrl").
+
+repo_test_() ->
+    case os:getenv("GEEF_RESOURCES") of
+	false ->
+	    [];
+	_ ->
+	    {foreach, fun start/0, fun stop/1, [fun amount_test/1]}
+    end.
+
+start() ->
+    BasePath = os:getenv("GEEF_RESOURCES"),
+    Path = filename:join([BasePath, "testrepo.git"]),
+    {ok, Repo} = geef_repo:open(Path),
+    Repo.
+
+count_walk(Walk, Acc) ->
+    case geef_revwalk:next(Walk) of
+	{ok, _} ->
+	    count_walk(Walk, Acc + 1);
+	{error, iterover} ->
+	    Acc
+    end.
+
+amount_test(Repo) ->
+    {ok, Walk} = geef_repo:revwalk(Repo),
+    Id = geef_oid:parse("a4a7dce85cf63874e984719f4fdd239f5145052f"),
+    ok = geef_revwalk:push(Walk, Id),
+    [?_assertEqual(6, count_walk(Walk, 0))].
+
+stop(_Repo) ->
+    ok.