From 7a73da002f1103255298713d97365ae16452ac28 Mon Sep 17 00:00:00 2001 From: Anton Shestakov Date: Sat, 9 Jul 2016 17:30:23 +0800 Subject: test_util_cache: remove unused argument c3 [luacheck] --- tests/test_util_cache.lua | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/test_util_cache.lua b/tests/test_util_cache.lua index 78666edc..dea1bf4c 100644 --- a/tests/test_util_cache.lua +++ b/tests/test_util_cache.lua @@ -219,7 +219,7 @@ function new(new) local evicted_key, evicted_value; - local c3 = new(1, function (_key, _value, c3) + local c3 = new(1, function (_key, _value) evicted_key, evicted_value = _key, _value; if _key == "a" then -- Sanity check for what we're evicting -- cgit v1.2.3 From b1cda685448c51b911ea5f6b9c7714088dd38ef0 Mon Sep 17 00:00:00 2001 From: Anton Shestakov Date: Sat, 9 Jul 2016 17:30:56 +0800 Subject: test_util_cache: rename a variable (c is already defined) [luacheck] --- tests/test_util_cache.lua | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/test_util_cache.lua b/tests/test_util_cache.lua index dea1bf4c..cbc60bc7 100644 --- a/tests/test_util_cache.lua +++ b/tests/test_util_cache.lua @@ -196,12 +196,12 @@ function new(new) assert_equal(i, 4); local evicted_key, evicted_value; - local c = new(3, function (_key, _value) + local c2 = new(3, function (_key, _value) evicted_key, evicted_value = _key, _value; end); local function set(k, v, should_evict_key, should_evict_value) evicted_key, evicted_value = nil, nil; - c:set(k, v); + c2:set(k, v); assert_equal(evicted_key, should_evict_key); assert_equal(evicted_value, should_evict_value); end -- cgit v1.2.3 From a8523999b65f39d8a8a242f38bc825a5a6accd4d Mon Sep 17 00:00:00 2001 From: Kim Alvefur Date: Tue, 12 Jul 2016 13:59:02 +0200 Subject: tests: Add basic test for net.http.parser --- tests/test.lua | 1 + tests/test_net_http_parser.lua | 47 ++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 48 insertions(+) create mode 100644 tests/test_net_http_parser.lua (limited to 'tests') diff --git a/tests/test.lua b/tests/test.lua index 9ab2cad8..78eb0134 100644 --- a/tests/test.lua +++ b/tests/test.lua @@ -27,6 +27,7 @@ function run_all_tests() dotest "util.random" dotest "util.xml" dotest "util.xmppstream" + dotest "net.http.parser" dosingletest("test_sasl.lua", "latin1toutf8"); dosingletest("test_utf8.lua", "valid"); diff --git a/tests/test_net_http_parser.lua b/tests/test_net_http_parser.lua new file mode 100644 index 00000000..1157b5ac --- /dev/null +++ b/tests/test_net_http_parser.lua @@ -0,0 +1,47 @@ +local httpstreams = { [[ +GET / HTTP/1.1 +Host: example.com + +]], [[ +HTTP/1.1 200 OK +Content-Length: 0 + +]], [[ +HTTP/1.1 200 OK +Content-Length: 7 + +Hello +HTTP/1.1 200 OK +Transfer-Encoding: chunked + +1 +H +1 +e +2 +ll +1 +o +0 + + +]] +} + +function new(new) + + for _, stream in ipairs(httpstreams) do + local success; + local function success_cb(packet) + success = true; + end + stream = stream:gsub("\n", "\r\n"); + local parser = new(success_cb, error, stream:sub(1,4) == "HTTP" and "client" or "server") + for chunk in stream:gmatch("..?.?") do + parser:feed(chunk); + end + + assert_is(success); + end + +end -- cgit v1.2.3