From 3dd7a84f495d8f4af50425a136743f67583248ba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Sat, 20 Dec 2014 15:12:23 +0200
Subject: Speed up the two slowest properties in cow_http_hd

We limit input to 50 items maximum.
---
 src/cow_http_hd.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/cow_http_hd.erl')

diff --git a/src/cow_http_hd.erl b/src/cow_http_hd.erl
index 9023add..8b39dbe 100644
--- a/src/cow_http_hd.erl
+++ b/src/cow_http_hd.erl
@@ -284,7 +284,7 @@ accept() ->
 
 prop_parse_accept() ->
 	?FORALL(L,
-		non_empty(list(accept())),
+		vector(1, 50, accept()),
 		begin
 			<< _, Accept/binary >> = iolist_to_binary([[$,, A] || {_, _, _, _, _, A} <- L]),
 			ResL = parse_accept(Accept),
@@ -1689,7 +1689,7 @@ ws_extension() ->
 
 prop_parse_sec_websocket_extensions() ->
 	?FORALL(L,
-		non_empty(list(ws_extension())),
+		vector(1, 50, ws_extension()),
 		begin
 			<< _, SecWebsocketExtensions/binary >> = iolist_to_binary([[$,, E] || {_, _, E} <- L]),
 			ResL = parse_sec_websocket_extensions(SecWebsocketExtensions),
-- 
cgit v1.2.3