tests/test_net_http_parser.lua

   1 local httpstreams = { [[
   2 GET / HTTP/1.1
   3 Host: example.com
   4
   5 ]], [[
   6 HTTP/1.1 200 OK
   7 Content-Length: 0
   8
   9 ]], [[
  10 HTTP/1.1 200 OK
  11 Content-Length: 7
  12
  13 Hello
  14 HTTP/1.1 200 OK
  15 Transfer-Encoding: chunked
  16
  17 1
  18 H
  19 1
  20 e
  21 2
  22 ll
  23 1
  24 o
  25 0
  26
  27
  28 ]]
  29 }
  30
  31 function new(new)
  32
  33         for _, stream in ipairs(httpstreams) do
  34                 local success;
  35                 local function success_cb(packet)
  36                         success = true;
  37                 end
  38                 stream = stream:gsub("\n", "\r\n");
  39                 local parser = new(success_cb, error, stream:sub(1,4) == "HTTP" and "client" or "server")
  40                 for chunk in stream:gmatch("..?.?") do
  41                         parser:feed(chunk);
  42                 end
  43
  44                 assert_is(success);
  45         end
  46
  47 end