diff options
Diffstat (limited to 'src/cow_http_hd.erl')
| -rw-r--r-- | src/cow_http_hd.erl | 76 |
1 files changed, 61 insertions, 15 deletions
diff --git a/src/cow_http_hd.erl b/src/cow_http_hd.erl index aaec21d..527f0a6 100644 --- a/src/cow_http_hd.erl +++ b/src/cow_http_hd.erl @@ -22,6 +22,7 @@ -export([parse_content_length/1]). -export([parse_content_type/1]). -export([parse_date/1]). +-export([parse_etag/1]). -export([parse_expect/1]). -export([parse_if_match/1]). -export([parse_if_modified_since/1]). @@ -965,6 +966,66 @@ parse_date_test_() -> [{V, fun() -> R = parse_date(V) end} || {V, R} <- Tests]. -endif. +%% @doc Parse the ETag header. + +-spec parse_etag(binary()) -> etag(). +parse_etag(<< $W, $/, $", R/bits >>) -> + etag(R, weak, <<>>); +parse_etag(<< $", R/bits >>) -> + etag(R, strong, <<>>). + +etag(<< $", R/bits >>, Strength, Tag) -> + ws_end(R), + {Strength, Tag}; +etag(<< C, R/bits >>, Strength, Tag) when ?IS_ETAGC(C) -> + etag(R, Strength, << Tag/binary, C >>). + +-ifdef(TEST). +etagc() -> + ?SUCHTHAT(C, int(16#21, 16#ff), C =/= 16#22 andalso C =/= 16#7f). + +etag() -> + ?LET({Strength, Tag}, + {oneof([weak, strong]), list(etagc())}, + begin + TagBin = list_to_binary(Tag), + {{Strength, TagBin}, + case Strength of + weak -> << $W, $/, $", TagBin/binary, $" >>; + strong -> << $", TagBin/binary, $" >> + end} + end). + +prop_parse_etag() -> + ?FORALL({Tag, TagBin}, + etag(), + Tag =:= parse_etag(TagBin)). + +parse_etag_test_() -> + Tests = [ + {<<"\"xyzzy\"">>, {strong, <<"xyzzy">>}}, + {<<"W/\"xyzzy\"">>, {weak, <<"xyzzy">>}}, + {<<"\"\"">>, {strong, <<>>}} + ], + [{V, fun() -> R = parse_etag(V) end} || {V, R} <- Tests]. + +parse_etag_error_test_() -> + Tests = [ + <<>>, + <<"\"">>, + <<"W">>, + <<"W/">> + ], + [{V, fun() -> {'EXIT', _} = (catch parse_etag(V)) end} || V <- Tests]. +-endif. + +-ifdef(PERF). +horse_parse_etag() -> + horse:repeat(200000, + parse_etag(<<"W/\"xyzzy\"">>) + ). +-endif. + %% @doc Parse the Expect header. -spec parse_expect(binary()) -> continue. @@ -1042,21 +1103,6 @@ etag_list_sep(<< $\t, R/bits >>, Acc) -> etag_list_sep(R, Acc); etag_list_sep(<< $,, R/bits >>, Acc) -> etag_list(R, Acc). -ifdef(TEST). -etagc() -> - ?SUCHTHAT(C, int(16#21, 16#ff), C =/= 16#22 andalso C =/= 16#7f). - -etag() -> - ?LET({Strength, Tag}, - {oneof([weak, strong]), list(etagc())}, - begin - TagBin = list_to_binary(Tag), - {{Strength, TagBin}, - case Strength of - weak -> << $W, $/, $", TagBin/binary, $" >>; - strong -> << $", TagBin/binary, $" >> - end} - end). - prop_parse_if_match() -> ?FORALL(L, non_empty(list(etag())), |