Parse protocol requests

2013-05-28 09:18:58 +02:00
parent 03f43d3265
commit ecb7cdfc23
3 changed files with 33 additions and 5 deletions
--- a/test/pkt_test.erl
+++ b/test/pkt_test.erl
@@ -10,3 +10,9 @@ have_test() ->
    Expected = {{want, geef_oid:parse("e17ca7f2d877acbf8b9a9a1cb4c243ca72e86463")}, <<>>},
    Actual = geef_pkt:parse("0032want e17ca7f2d877acbf8b9a9a1cb4c243ca72e86463\n"),
    ?assertEqual(Expected, Actual).
+
+request_test() ->
+    Line = <<"0039git-upload-pack /schacon/gitbook.git\0host=example.com\0">>,
+    Expected = #geef_request{service=upload_pack, path= <<"/schacon/gitbook.git">>, host= <<"example.com">>},
+    Actual = geef_pkt:parse_request(Line),
+    ?assertEqual(Expected, Actual).