aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2014-12-20 12:18:30 +0200
committerLoïc Hoguin <[email protected]>2014-12-20 12:18:30 +0200
commitbf3c8eb263811b41ffe8ff24a42466abc7633ac8 (patch)
tree318fd6898a3a4c7e7a3e68d73535b3be6de690e6 /src
parentb2bf370f1e64764f7ddbe6216c7a521c3b4211cb (diff)
downloadcowlib-bf3c8eb263811b41ffe8ff24a42466abc7633ac8.tar.gz
cowlib-bf3c8eb263811b41ffe8ff24a42466abc7633ac8.tar.bz2
cowlib-bf3c8eb263811b41ffe8ff24a42466abc7633ac8.zip
Simplify generators for language ranges
Diffstat (limited to 'src')
-rw-r--r--src/cow_http_hd.erl22
1 files changed, 2 insertions, 20 deletions
diff --git a/src/cow_http_hd.erl b/src/cow_http_hd.erl
index 5ff5274..8fe9f04 100644
--- a/src/cow_http_hd.erl
+++ b/src/cow_http_hd.erl
@@ -624,28 +624,10 @@ language_range_list_sep(<< $,, R/bits >>, Acc) -> language_range_list(R, Acc).
-ifdef(TEST).
language_range_tag() ->
- oneof([
- [alpha()],
- [alpha(), alpha()],
- [alpha(), alpha(), alpha()],
- [alpha(), alpha(), alpha(), alpha()],
- [alpha(), alpha(), alpha(), alpha(), alpha()],
- [alpha(), alpha(), alpha(), alpha(), alpha(), alpha()],
- [alpha(), alpha(), alpha(), alpha(), alpha(), alpha(), alpha()],
- [alpha(), alpha(), alpha(), alpha(), alpha(), alpha(), alpha(), alpha()]
- ]).
+ vector(1, 8, alpha()).
language_range_subtag() ->
- [$-, oneof([
- [alphanum()],
- [alphanum(), alphanum()],
- [alphanum(), alphanum(), alphanum()],
- [alphanum(), alphanum(), alphanum(), alphanum()],
- [alphanum(), alphanum(), alphanum(), alphanum(), alphanum()],
- [alphanum(), alphanum(), alphanum(), alphanum(), alphanum(), alphanum()],
- [alphanum(), alphanum(), alphanum(), alphanum(), alphanum(), alphanum(), alphanum()],
- [alphanum(), alphanum(), alphanum(), alphanum(), alphanum(), alphanum(), alphanum(), alphanum()]
- ])].
+ [$-, vector(1, 8, alphanum())].
language_range() ->
[language_range_tag(), small_list(language_range_subtag())].