test.htm

<?lua
local greeting = "hello, world\n"
put(greeting)
if rawrequest() ~= "GET /static/test.htm?a=b&b=c HTTP/1.0\r\n" ..
                   "Content-Length: 17\r\n" ..
                   "Host: localhost:1234\r\n" ..
                   "\r\n" ..
                   "foo=bar&test=test" then
    error("rawrequest() didn't match with unit test value")
end
if method() ~= "GET" then
    error("method() didn't match with unit test value")
end
if uri() ~= "/static/test.htm?a=b&b=c" then
    error("uri() didn't match with unit test value")
end
if path() ~= "/static/test.htm?a=b&b=c" then
    error("path() didn't match with unit test value")
end
if version() ~= "HTTP/1.0" then
    error("version() didn't match with unit test value")
end
local headers = headers()
if headers["Host"] ~= "localhost:1234" then
    error("headers() didn't match with unit test value")
end
if body() ~= "foo=bar&test=test" then
    error("body() didn't match with unit test value")
end
local get = get()
if get["a"] ~= "b" or get["b"] ~= "c" then
    error("get() didn't match with unit test value")
end
local post = post()
if post["foo"] ~= "bar" or post["test"] ~= "test" then
    error("post() didn't match with unit test value")
end
addheader("Foo", "bar")
setstatus(202)
?>
<%= greeting %>