mirror of https://github.com/sipwise/lua-uri.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
68 lines
1.9 KiB
68 lines
1.9 KiB
require "uri-test"
|
|
local URI = require "uri"
|
|
|
|
module("test.http", lunit.testcase, package.seeall)
|
|
|
|
function test_http ()
|
|
local uri = assert(URI:new("HTtp://FOo/Blah?Search#Id"))
|
|
is("uri.http", uri._NAME)
|
|
is("http://foo/Blah?Search#Id", uri:uri())
|
|
is("http://foo/Blah?Search#Id", tostring(uri))
|
|
is("http", uri:scheme())
|
|
is("foo", uri:host())
|
|
is(80, uri:port())
|
|
is("/Blah", uri:path())
|
|
is(nil, uri:userinfo())
|
|
is("Search", uri:query())
|
|
is("Id", uri:fragment())
|
|
end
|
|
|
|
function test_https ()
|
|
local uri = assert(URI:new("HTtpS://FOo/Blah?Search#Id"))
|
|
is("uri.https", uri._NAME)
|
|
is("https://foo/Blah?Search#Id", uri:uri())
|
|
is("https://foo/Blah?Search#Id", tostring(uri))
|
|
is("https", uri:scheme())
|
|
is("foo", uri:host())
|
|
is(443, uri:port())
|
|
is("/Blah", uri:path())
|
|
is(nil, uri:userinfo())
|
|
is("Search", uri:query())
|
|
is("Id", uri:fragment())
|
|
end
|
|
|
|
function test_http_port ()
|
|
local uri = assert(URI:new("http://example.com:8080/foo"))
|
|
is(8080, uri:port())
|
|
local old = uri:port(1234)
|
|
is(8080, old)
|
|
is(1234, uri:port())
|
|
is("http://example.com:1234/foo", tostring(uri))
|
|
old = uri:port(80)
|
|
is(1234, old)
|
|
is(80, uri:port())
|
|
is("http://example.com/foo", tostring(uri))
|
|
end
|
|
|
|
function test_normalize_port ()
|
|
local uri = assert(URI:new("http://foo:80/"))
|
|
is("http://foo/", tostring(uri))
|
|
is(80, uri:port())
|
|
uri = assert(URI:new("http://foo:443/"))
|
|
is("http://foo:443/", tostring(uri))
|
|
is(443, uri:port())
|
|
uri = assert(URI:new("https://foo:443/"))
|
|
is("https://foo/", tostring(uri))
|
|
is(443, uri:port())
|
|
uri = assert(URI:new("https://foo:80/"))
|
|
is("https://foo:80/", tostring(uri))
|
|
is(80, uri:port())
|
|
end
|
|
|
|
function test_set_userinfo ()
|
|
local uri = assert(URI:new("http://host/path"))
|
|
assert_error("can't set userinfo", function () uri:userinfo("x") end)
|
|
end
|
|
|
|
-- vi:ts=4 sw=4 expandtab
|