From bf3c8eb263811b41ffe8ff24a42466abc7633ac8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Sat, 20 Dec 2014 12:18:30 +0200 Subject: Simplify generators for language ranges --- src/cow_http_hd.erl | 22 ++-------------------- 1 file changed, 2 insertions(+), 20 deletions(-) (limited to 'src') 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())]. -- cgit v1.2.3