145 lines
7 KiB
Elixir
145 lines
7 KiB
Elixir
|
defmodule NurinaTest do
|
||
|
|
use ExUnit.Case
|
||
|
|
|
||
|
|
test :parse_http do
|
||
|
|
assert %Nurina.Info{scheme: "http", host: "foo.com", path: "/path/to/something",
|
||
|
|
query: "foo=bar&bar=foo", fragment: "fragment", port: 80,
|
||
|
|
authority: "foo.com", userinfo: nil,
|
||
|
|
hier: "//foo.com/path/to/something", valid: true} ==
|
||
|
|
Nurina.parse("http://foo.com/path/to/something?foo=bar&bar=foo#fragment")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_https do
|
||
|
|
assert %Nurina.Info{scheme: "https", host: "foo.com", authority: "foo.com",
|
||
|
|
query: nil, fragment: nil, port: 443, path: nil, userinfo: nil,
|
||
|
|
hier: "//foo.com", valid: true} ==
|
||
|
|
Nurina.parse("https://foo.com")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_file do
|
||
|
|
assert %Nurina.Info{scheme: "file", host: nil, path: "/foo/bar/baz", userinfo: nil,
|
||
|
|
query: nil, fragment: nil, port: nil, authority: nil,
|
||
|
|
hier: "///foo/bar/baz", valid: true} ==
|
||
|
|
Nurina.parse("file:///foo/bar/baz")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_ftp do
|
||
|
|
assert %Nurina.Info{scheme: "ftp", host: "private.ftp-servers.example.com",
|
||
|
|
userinfo: "user001:secretpassword", authority: "user001:secretpassword@private.ftp-servers.example.com",
|
||
|
|
path: "/mydirectory/myfile.txt", query: nil, fragment: nil,
|
||
|
|
port: 21,
|
||
|
|
hier: "//user001:secretpassword@private.ftp-servers.example.com/mydirectory/myfile.txt", valid: true} ==
|
||
|
|
Nurina.parse("ftp://user001:secretpassword@private.ftp-servers.example.com/mydirectory/myfile.txt")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_sftp do
|
||
|
|
assert %Nurina.Info{scheme: "sftp", host: "private.ftp-servers.example.com",
|
||
|
|
userinfo: "user001:secretpassword", authority: "user001:secretpassword@private.ftp-servers.example.com",
|
||
|
|
path: "/mydirectory/myfile.txt", query: nil, fragment: nil,
|
||
|
|
port: 22,
|
||
|
|
hier: "//user001:secretpassword@private.ftp-servers.example.com/mydirectory/myfile.txt", valid: true} ==
|
||
|
|
Nurina.parse("sftp://user001:secretpassword@private.ftp-servers.example.com/mydirectory/myfile.txt")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_tftp do
|
||
|
|
assert %Nurina.Info{scheme: "tftp", host: "private.ftp-servers.example.com",
|
||
|
|
userinfo: "user001:secretpassword", authority: "user001:secretpassword@private.ftp-servers.example.com",
|
||
|
|
path: "/mydirectory/myfile.txt", query: nil, fragment: nil, port: 69,
|
||
|
|
hier: "//user001:secretpassword@private.ftp-servers.example.com/mydirectory/myfile.txt", valid: true} ==
|
||
|
|
Nurina.parse("tftp://user001:secretpassword@private.ftp-servers.example.com/mydirectory/myfile.txt")
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
test :parse_ldap do
|
||
|
|
assert %Nurina.Info{scheme: "ldap", host: nil, authority: nil, userinfo: nil,
|
||
|
|
path: "/dc=example,dc=com", query: "?sub?(givenName=John)",
|
||
|
|
fragment: nil, port: 389,
|
||
|
|
hier: "///dc=example,dc=com", valid: true} ==
|
||
|
|
Nurina.parse("ldap:///dc=example,dc=com??sub?(givenName=John)")
|
||
|
|
assert %Nurina.Info{scheme: "ldap", host: "ldap.example.com", authority: "ldap.example.com",
|
||
|
|
userinfo: nil, path: "/cn=John%20Doe,dc=example,dc=com", fragment: nil,
|
||
|
|
port: 389, query: nil,
|
||
|
|
hier: "//ldap.example.com/cn=John%20Doe,dc=example,dc=com", valid: true} ==
|
||
|
|
Nurina.parse("ldap://ldap.example.com/cn=John%20Doe,dc=example,dc=com")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_mailto do
|
||
|
|
assert %Nurina.Info{scheme: "mailto", host: nil, authority: nil, userinfo: nil,
|
||
|
|
path: "foo@foo.com", query: nil, fragment: nil, port: nil, hier: "foo@foo.com", valid: true} ==
|
||
|
|
Nurina.parse("mailto:foo@foo.com")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_splits_authority do
|
||
|
|
assert %Nurina.Info{scheme: "http", host: "foo.com", path: nil,
|
||
|
|
query: nil, fragment: nil, port: 4444,
|
||
|
|
authority: "foo:bar@foo.com:4444",
|
||
|
|
userinfo: "foo:bar",
|
||
|
|
hier: "//foo:bar@foo.com:4444", valid: true} ==
|
||
|
|
Nurina.parse("http://foo:bar@foo.com:4444")
|
||
|
|
assert %Nurina.Info{scheme: "https", host: "foo.com", path: nil,
|
||
|
|
query: nil, fragment: nil, port: 443,
|
||
|
|
authority: "foo:bar@foo.com", userinfo: "foo:bar",
|
||
|
|
hier: "//foo:bar@foo.com", valid: true} ==
|
||
|
|
Nurina.parse("https://foo:bar@foo.com")
|
||
|
|
assert %Nurina.Info{scheme: "http", host: "foo.com", path: nil,
|
||
|
|
query: nil, fragment: nil, port: 4444,
|
||
|
|
authority: "foo.com:4444",
|
||
|
|
userinfo: nil,
|
||
|
|
hier: "//foo.com:4444", valid: true} ==
|
||
|
|
Nurina.parse("http://foo.com:4444")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :parse_bad_uris do
|
||
|
|
%Nurina.Info{valid: false} = Nurina.parse("https??@?F?@#>F//23/")
|
||
|
|
%Nurina.Info{valid: false} = Nurina.parse("")
|
||
|
|
%Nurina.Info{valid: false} = Nurina.parse(":https")
|
||
|
|
%Nurina.Info{valid: false} = Nurina.parse("https")
|
||
|
|
%Nurina.Info{valid: false} = Nurina.parse("http://example.com:what/")
|
||
|
|
end
|
||
|
|
|
||
|
|
test :ipv6_addresses do
|
||
|
|
addrs = [
|
||
|
|
"::", # undefined
|
||
|
|
"::1", # loopback
|
||
|
|
"1080::8:800:200C:417A", # unicast
|
||
|
|
"FF01::101", # multicast
|
||
|
|
"2607:f3f0:2:0:216:3cff:fef0:174a", # abbreviated
|
||
|
|
"2607:f3F0:2:0:216:3cFf:Fef0:174A", # mixed hex case
|
||
|
|
"2051:0db8:2d5a:3521:8313:ffad:1242:8e2e", # complete
|
||
|
|
"::00:192.168.10.184" # embedded IPv4
|
||
|
|
]
|
||
|
|
|
||
|
|
Enum.each addrs, fn(addr) ->
|
||
|
|
simple_uri = Nurina.parse("http://[#{addr}]/")
|
||
|
|
assert simple_uri.host == addr
|
||
|
|
|
||
|
|
userinfo_uri = Nurina.parse("http://user:pass@[#{addr}]/")
|
||
|
|
assert userinfo_uri.host == addr
|
||
|
|
assert userinfo_uri.userinfo == "user:pass"
|
||
|
|
|
||
|
|
port_uri = Nurina.parse("http://[#{addr}]:2222/")
|
||
|
|
assert port_uri.host == addr
|
||
|
|
assert port_uri.port == 2222
|
||
|
|
|
||
|
|
userinfo_port_uri = Nurina.parse("http://user:pass@[#{addr}]:2222/")
|
||
|
|
assert userinfo_port_uri.host == addr
|
||
|
|
assert userinfo_port_uri.userinfo == "user:pass"
|
||
|
|
assert userinfo_port_uri.port == 2222
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
test :downcase_scheme do
|
||
|
|
assert Nurina.parse("hTtP://google.com").scheme == "http"
|
||
|
|
end
|
||
|
|
|
||
|
|
#test :to_string do
|
||
|
|
# assert to_string(Nurina.parse("http://google.com")) == "http://google.com"
|
||
|
|
# assert to_string(Nurina.parse("http://google.com:443")) == "http://google.com:443"
|
||
|
|
# assert to_string(Nurina.parse("https://google.com:443")) == "https://google.com"
|
||
|
|
# assert to_string(Nurina.parse("http://lol:wut@google.com")) == "http://lol:wut@google.com"
|
||
|
|
# assert to_string(Nurina.parse("http://google.com/elixir")) == "http://google.com/elixir"
|
||
|
|
# assert to_string(Nurina.parse("http://google.com?q=lol")) == "http://google.com?q=lol"
|
||
|
|
# assert to_string(Nurina.parse("http://google.com?q=lol#omg")) == "http://google.com?q=lol#omg"
|
||
|
|
#end
|
||
|
|
end
|