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.
130 lines
4.3 KiB
130 lines
4.3 KiB
require "uri-test"
|
|
local URI = require "uri"
|
|
|
|
module("test.pop", lunit.testcase, package.seeall)
|
|
|
|
function test_pop_parse_1 ()
|
|
local uri = assert(URI:new("Pop://rg@MAILSRV.qualcomm.COM"))
|
|
is("pop://rg@mailsrv.qualcomm.com", tostring(uri))
|
|
is("pop", uri:scheme())
|
|
is("rg", uri:userinfo())
|
|
is("mailsrv.qualcomm.com", uri:host())
|
|
is(110, uri:port())
|
|
is("rg", uri:pop_user())
|
|
is("*", uri:pop_auth())
|
|
end
|
|
|
|
function test_pop_parse_2 ()
|
|
local uri = assert(URI:new("pop://rg;AUTH=+APOP@mail.eudora.com:8110"))
|
|
is("pop://rg;auth=+APOP@mail.eudora.com:8110", tostring(uri))
|
|
is("rg;auth=+APOP", uri:userinfo())
|
|
is("mail.eudora.com", uri:host())
|
|
is(8110, uri:port())
|
|
is("rg", uri:pop_user())
|
|
is("+APOP", uri:pop_auth())
|
|
end
|
|
|
|
function test_pop_parse_3 ()
|
|
local uri = assert(URI:new("pop://baz;AUTH=SCRAM-MD5@foo.bar"))
|
|
is("pop://baz;auth=SCRAM-MD5@foo.bar", tostring(uri))
|
|
is("baz;auth=SCRAM-MD5", uri:userinfo())
|
|
is("foo.bar", uri:host())
|
|
is(110, uri:port())
|
|
is("baz", uri:pop_user())
|
|
is("SCRAM-MD5", uri:pop_auth())
|
|
end
|
|
|
|
function test_pop_normalize ()
|
|
local uri = assert(URI:new("Pop://Baz;Auth=*@Foo.Bar:110"))
|
|
is("pop://Baz@foo.bar", tostring(uri))
|
|
is("Baz", uri:userinfo())
|
|
is("foo.bar", uri:host())
|
|
is(110, uri:port())
|
|
is("Baz", uri:pop_user())
|
|
is("*", uri:pop_auth())
|
|
end
|
|
|
|
function test_pop_set_user ()
|
|
local uri = assert(URI:new("pop://host"))
|
|
is(nil, uri:pop_user("foo ;bar"))
|
|
is("pop://foo%20%3Bbar@host", tostring(uri))
|
|
assert_error("empty user not allowed", function () uri:pop_user("") end)
|
|
is("foo ;bar", uri:pop_user(nil))
|
|
is(nil, uri:pop_user())
|
|
is("pop://host", tostring(uri))
|
|
end
|
|
|
|
function test_pop_set_user_bad ()
|
|
local uri = assert(URI:new("pop://foo@host"))
|
|
assert_error("empty user not allowed", function () uri:pop_user("") end)
|
|
is("foo", uri:pop_user())
|
|
is("pop://foo@host", tostring(uri))
|
|
uri = assert(URI:new("pop://foo;auth=+APOP@host"))
|
|
assert_error("user required when auth specified",
|
|
function () uri:pop_user(nil) end)
|
|
is("foo", uri:pop_user())
|
|
is("+APOP", uri:pop_auth())
|
|
is("pop://foo;auth=+APOP@host", tostring(uri))
|
|
end
|
|
|
|
function test_pop_set_auth ()
|
|
local uri = assert(URI:new("pop://user@host"))
|
|
is("*", uri:pop_auth("foo ;bar"))
|
|
is("pop://user;auth=foo%20%3Bbar@host", tostring(uri))
|
|
is("foo ;bar", uri:pop_auth("*"))
|
|
is("*", uri:pop_auth())
|
|
is("pop://user@host", tostring(uri))
|
|
end
|
|
|
|
function test_pop_set_auth_bad ()
|
|
local uri = assert(URI:new("pop://host"))
|
|
assert_error("auth not allowed without user",
|
|
function () uri:pop_auth("+APOP") end)
|
|
uri:pop_user("user")
|
|
assert_error("empty auth not allowed", function () uri:pop_auth("") end)
|
|
assert_error("nil auth not allowed", function () uri:pop_auth(nil) end)
|
|
is("pop://user@host", tostring(uri))
|
|
end
|
|
|
|
function test_pop_bad_syntax ()
|
|
is_bad_uri("path not empty", "pop://foo@host/")
|
|
is_bad_uri("user empty", "pop://@host")
|
|
is_bad_uri("user empty with auth", "pop://;auth=+APOP@host")
|
|
is_bad_uri("auth empty", "pop://user;auth=@host")
|
|
end
|
|
|
|
function test_set_userinfo ()
|
|
local uri = assert(URI:new("pop://host"))
|
|
is(nil, uri:userinfo("foo ;bar"))
|
|
is("pop://foo%20%3Bbar@host", tostring(uri))
|
|
is("foo%20%3Bbar", uri:userinfo("foo;auth=+APOP"))
|
|
is("pop://foo;auth=+APOP@host", tostring(uri))
|
|
is("foo;auth=+APOP", uri:userinfo("foo;AUTH=+APOP"))
|
|
is("pop://foo;auth=+APOP@host", tostring(uri))
|
|
is("foo;auth=+APOP", uri:userinfo("bar;auth=*"))
|
|
is("pop://bar@host", tostring(uri))
|
|
is("bar", uri:userinfo(nil))
|
|
is("pop://host", tostring(uri))
|
|
end
|
|
|
|
function test_set_userinfo_bad ()
|
|
local uri = assert(URI:new("pop://host"))
|
|
assert_error("empty userinfo", function () uri:userinfo("") end)
|
|
assert_error("empty user with auth",
|
|
function () uri:userinfo(";auth=*") end)
|
|
assert_error("empty auth on its own",
|
|
function () uri:userinfo(";auth=") end)
|
|
assert_error("empty auth with user",
|
|
function () uri:userinfo("foo;auth=") end)
|
|
end
|
|
|
|
function test_set_path ()
|
|
local uri = assert(URI:new("pop://host"))
|
|
is("", uri:path(""))
|
|
is("", uri:path(nil))
|
|
is("", uri:path())
|
|
assert_error("non-empty path", function () uri:path("/") end)
|
|
end
|
|
|
|
-- vi:ts=4 sw=4 expandtab
|