uri/test/uri_test.gleam

import gleam/option.{None, Some}
import gleeunit/should
import startest.{describe, it}
import uri.{Uri}

pub fn main() {
  startest.run(startest.default_config())
}

pub fn parse_scheme_tests() {
  describe("scheme parsing", [
    it("simple parse", fn() {
      uri.parse("") |> should.equal(Ok(uri.empty_uri))
      uri.parse("foo")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "foo")))
      uri.parse("foo:")
      |> should.equal(Ok(Uri(..uri.empty_uri, scheme: Some("foo"))))
      uri.parse("foo:bar:nisse")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), path: "bar:nisse"),
      ))
      uri.parse("foo://")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), host: Some("")),
      ))
      uri.parse("foo:///")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), host: Some(""), path: "/"),
      ))
      uri.parse("foo:////")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), host: Some(""), path: "//"),
      ))
    }),
  ])
}

pub fn parse_userinfo_tests() {
  describe("userinfo parsing", [
    it("simple parse", fn() {
      uri.parse("user:password@localhost")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("user"), path: "password@localhost"),
      ))
      uri.parse("user@")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "user@")))
      uri.parse("/user@")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "/user@")))
      uri.parse("user@localhost")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "user@localhost")))
      uri.parse("//user@localhost")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, userinfo: Some("user"), host: Some("localhost")),
      ))
      uri.parse("//user:password@localhost")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          userinfo: Some("user:password"),
          host: Some("localhost"),
        ),
      ))
      uri.parse("foo:/user@")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), path: "/user@"),
      ))
      uri.parse("foo://user@localhost")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          userinfo: Some("user"),
          host: Some("localhost"),
        ),
      ))
      uri.parse("foo://user:password@localhost")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          userinfo: Some("user:password"),
          host: Some("localhost"),
        ),
      ))
    }),
    it("percent encoding", fn() {
      uri.parse("user:%E5%90%88@%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("user"),
          path: "%E5%90%88@%E6%B0%97%E9%81%93",
        ),
      ))
      uri.parse("%E5%90%88%E6%B0%97%E9%81%93@")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "%E5%90%88%E6%B0%97%E9%81%93@"),
      ))
      uri.parse("/%E5%90%88%E6%B0%97%E9%81%93@")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "/%E5%90%88%E6%B0%97%E9%81%93@"),
      ))
      uri.parse("%E5%90%88@%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "%E5%90%88@%E6%B0%97%E9%81%93"),
      ))
      uri.parse("//%E5%90%88@%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("%E6%B0%97%E9%81%93"),
          userinfo: Some("%E5%90%88"),
        ),
      ))
      uri.parse("//%E5%90%88:%E6%B0%97@%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("%E9%81%93"),
          userinfo: Some("%E5%90%88:%E6%B0%97"),
        ),
      ))
      uri.parse("foo:/%E5%90%88%E6%B0%97%E9%81%93@")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          path: "/%E5%90%88%E6%B0%97%E9%81%93@",
        ),
      ))
      uri.parse("foo://%E5%90%88@%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          userinfo: Some("%E5%90%88"),
          host: Some("%E6%B0%97%E9%81%93"),
        ),
      ))
      uri.parse("foo://%E5%90%88:%E6%B0%97@%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          userinfo: Some("%E5%90%88:%E6%B0%97"),
          host: Some("%E9%81%93"),
        ),
      ))
      uri.parse("//%E5%90%88@%E6%B0%97%E9%81%93@") |> should.be_error
      uri.parse("foo://%E5%90%88@%E6%B0%97%E9%81%93@") |> should.be_error
    }),
  ])
}

pub fn parse_host_tests() {
  describe("host parsing", [
    it("simple parse", fn() {
      uri.parse("//hostname")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some("hostname"))))
      uri.parse("foo://hostname")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), host: Some("hostname")),
      ))
      uri.parse("foo://user@hostname")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          userinfo: Some("user"),
          host: Some("hostname"),
        ),
      ))
    }),
    it("ipv4 parse", fn() {
      uri.parse("//127.0.0.1")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some("127.0.0.1"))))
      uri.parse("//127.0.0.1/over/there")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("127.0.0.1"), path: "/over/there"),
      ))
      uri.parse("//127.0.0.1?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("127.0.0.1"),
          query: Some("name=ferret"),
        ),
      ))
      uri.parse("//127.0.0.1#nose")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("127.0.0.1"), fragment: Some("nose")),
      ))

      uri.parse("//127.0.0.x")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some("127.0.0.x"))))
      uri.parse("//1227.0.0.1")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some("1227.0.0.1"))))
    }),
    it("ipv6 parse", fn() {
      uri.parse("//[::127.0.0.1]")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some("::127.0.0.1"))))
      uri.parse("//[2001:0db8:0000:0000:0000:0000:1428:07ab]")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("2001:0db8:0000:0000:0000:0000:1428:07ab"),
        ),
      ))
      uri.parse("//[::127.0.0.1]/over/there")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("::127.0.0.1"), path: "/over/there"),
      ))
      uri.parse("//[::127.0.0.1]?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("::127.0.0.1"),
          query: Some("name=ferret"),
        ),
      ))
      uri.parse("//[::127.0.0.1]#nose")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("::127.0.0.1"), fragment: Some("nose")),
      ))

      uri.parse("//[::127.0.0.x]") |> should.be_error
      uri.parse("//[::1227.0.0.1]") |> should.be_error
      uri.parse("//[2001:0db8:0000:0000:0000:0000:1428:G7ab]")
      |> should.be_error
    }),
  ])
}

pub fn parse_port_tests() {
  describe("port parsing", [
    it("simple parse", fn() {
      uri.parse("/:8042")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "/:8042")))
      uri.parse("//:8042")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some(""), port: Some(8042))))
      uri.parse("//example.com:8042")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("example.com"), port: Some(8042)),
      ))
      uri.parse("foo:/:8042")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), path: "/:8042"),
      ))
      uri.parse("foo://:8042")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some(""),
          port: Some(8042),
        ),
      ))
      uri.parse("foo://example.com:8042")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          port: Some(8042),
        ),
      ))
      uri.parse(":8042") |> should.be_error
      uri.parse("//:8042x") |> should.be_error
    }),
    it("undefined port", fn() {
      uri.parse("/:")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "/:")))
      uri.parse("//:")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some(""), port: None)))
      uri.parse("//example.com:")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("example.com"), port: None),
      ))
      uri.parse("foo:/:")
      |> should.equal(Ok(Uri(..uri.empty_uri, scheme: Some("foo"), path: "/:")))
      uri.parse("foo://:")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), host: Some(""), port: None),
      ))
      uri.parse("foo://example.com:")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          port: None,
        ),
      ))
      uri.parse(":") |> should.be_error
      uri.parse("//:x") |> should.be_error
    }),
  ])
}

pub fn parse_path_tests() {
  describe("path parsing", [
    it("simple parse", fn() {
      uri.parse("over/there")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "over/there")))
      uri.parse("/over/there")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "/over/there")))
      uri.parse("foo:/over/there")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), path: "/over/there"),
      ))
      uri.parse("foo://example.com/over/there")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          path: "/over/there",
        ),
      ))
      uri.parse("foo://example.com:8042/over/there")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          port: Some(8042),
          path: "/over/there",
        ),
      ))
    }),
  ])
}

pub fn parse_query_tests() {
  describe("query parsing", [
    it("simple parse", fn() {
      uri.parse("foo:?name=ferret")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), query: Some("name=ferret")),
      ))
      uri.parse("foo:over/there?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          path: "over/there",
          query: Some("name=ferret"),
        ),
      ))
      uri.parse("foo:/over/there?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          path: "/over/there",
          query: Some("name=ferret"),
        ),
      ))
      uri.parse("foo://example.com?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          query: Some("name=ferret"),
        ),
      ))
      uri.parse("foo://example.com/?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          path: "/",
          query: Some("name=ferret"),
        ),
      ))

      uri.parse("?name=ferret")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "", query: Some("name=ferret")),
      ))
      uri.parse("over/there?name=ferret")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "over/there", query: Some("name=ferret")),
      ))
      uri.parse("/?name=ferret")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "/", query: Some("name=ferret")),
      ))
      uri.parse("/over/there?name=ferret")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "/over/there", query: Some("name=ferret")),
      ))
      uri.parse("//example.com?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("example.com"),
          query: Some("name=ferret"),
        ),
      ))
      uri.parse("//example.com/?name=ferret")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("example.com"),
          path: "/",
          query: Some("name=ferret"),
        ),
      ))
    }),
    it("percent encoding", fn() {
      uri.parse("foo://example.com/?name=%E5%90%88%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          path: "/",
          query: Some("name=%E5%90%88%E6%B0%97%E9%81%93"),
        ),
      ))
      uri.parse("//example.com/?name=%E5%90%88%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("example.com"),
          path: "/",
          query: Some("name=%E5%90%88%E6%B0%97%E9%81%93"),
        ),
      ))
    }),
  ])
}

pub fn parse_fragment_tests() {
  describe("fragment parsing", [
    it("simple parse", fn() {
      uri.parse("foo:#nose")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("foo"), fragment: Some("nose")),
      ))
      uri.parse("foo:over/there#nose")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          path: "over/there",
          fragment: Some("nose"),
        ),
      ))
      uri.parse("foo:/over/there#nose")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          path: "/over/there",
          fragment: Some("nose"),
        ),
      ))
      uri.parse("foo://example.com#nose")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          fragment: Some("nose"),
        ),
      ))
      uri.parse("foo://example.com/#nose")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          path: "/",
          fragment: Some("nose"),
        ),
      ))
      uri.parse("foo://example.com#nose")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          fragment: Some("nose"),
        ),
      ))

      uri.parse("#nose")
      |> should.equal(Ok(Uri(..uri.empty_uri, fragment: Some("nose"))))
      uri.parse("over/there#nose")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "over/there", fragment: Some("nose")),
      ))
      uri.parse("/#nose")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "/", fragment: Some("nose")),
      ))
      uri.parse("/over/there#nose")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, path: "/over/there", fragment: Some("nose")),
      ))
      uri.parse("//example.com#nose")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("example.com"), fragment: Some("nose")),
      ))
      uri.parse("//example.com/#nose")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("example.com"),
          path: "/",
          fragment: Some("nose"),
        ),
      ))
    }),
    it("percent encoding", fn() {
      uri.parse("foo://example.com#%E5%90%88%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some("example.com"),
          fragment: Some("%E5%90%88%E6%B0%97%E9%81%93"),
        ),
      ))
      uri.parse("//example.com/#%E5%90%88%E6%B0%97%E9%81%93")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("example.com"),
          path: "/",
          fragment: Some("%E5%90%88%E6%B0%97%E9%81%93"),
        ),
      ))
    }),
  ])
}

fn parse_special_tests() {
  describe("special parsing", [
    it("special 1", fn() {
      uri.parse("//?")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some(""), query: Some(""))))
      uri.parse("//#")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some(""), fragment: Some("")),
      ))
      uri.parse("//?#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some(""),
          query: Some(""),
          fragment: Some(""),
        ),
      ))
      uri.parse("foo://?")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some(""),
          query: Some(""),
        ),
      ))
      uri.parse("foo://#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some(""),
          fragment: Some(""),
        ),
      ))
      uri.parse("foo://?#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some(""),
          query: Some(""),
          fragment: Some(""),
        ),
      ))
      uri.parse("///")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some(""), path: "/")))
      uri.parse("///hostname")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some(""), path: "/hostname"),
      ))
      uri.parse("///?")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some(""), path: "/", query: Some("")),
      ))
      uri.parse("///#")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some(""), path: "/", fragment: Some("")),
      ))
      uri.parse("///?#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some(""),
          path: "/",
          query: Some(""),
          fragment: Some(""),
        ),
      ))
      uri.parse("//foo?")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("foo"), query: Some("")),
      ))
      uri.parse("//foo#")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("foo"), fragment: Some("")),
      ))
      uri.parse("//foo?#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          host: Some("foo"),
          query: Some(""),
          fragment: Some(""),
        ),
      ))
      uri.parse("//foo/")
      |> should.equal(Ok(Uri(..uri.empty_uri, host: Some("foo"), path: "/")))
      uri.parse("http://foo?")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("http"),
          host: Some("foo"),
          query: Some(""),
        ),
      ))
      uri.parse("http://foo#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("http"),
          host: Some("foo"),
          fragment: Some(""),
        ),
      ))
      uri.parse("http://foo?#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("http"),
          host: Some("foo"),
          query: Some(""),
          fragment: Some(""),
        ),
      ))
      uri.parse("http://foo/")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, scheme: Some("http"), host: Some("foo"), path: "/"),
      ))
      uri.parse("http://foo:80?")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("http"),
          host: Some("foo"),
          port: Some(80),
          query: Some(""),
        ),
      ))
      uri.parse("http://foo:80#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("http"),
          host: Some("foo"),
          port: Some(80),
          fragment: Some(""),
        ),
      ))
      uri.parse("http://foo:80?#")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("http"),
          host: Some("foo"),
          port: Some(80),
          query: Some(""),
          fragment: Some(""),
        ),
      ))
      uri.parse("http://foo:80/")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("http"),
          host: Some("foo"),
          port: Some(80),
          path: "/",
        ),
      ))
      uri.parse("?")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "", query: Some(""))))
      uri.parse("??")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "", query: Some("?"))))
      uri.parse("???")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "", query: Some("??"))))
      uri.parse("#")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "", fragment: Some(""))))
      uri.parse("##")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "", fragment: Some("#"))))
      uri.parse("###")
      |> should.equal(Ok(Uri(..uri.empty_uri, path: "", fragment: Some("##"))))
    }),
    it("special 2", fn() {
      uri.parse("a://:1/")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("a"),
          host: Some(""),
          port: Some(1),
          path: "/",
        ),
      ))
      uri.parse("a:/a/")
      |> should.equal(Ok(Uri(..uri.empty_uri, scheme: Some("a"), path: "/a/")))
      uri.parse("//@")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some(""), path: "", userinfo: Some("")),
      ))
      uri.parse("foo://@")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some(""),
          path: "",
          userinfo: Some(""),
        ),
      ))
      uri.parse("//@/")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some(""), path: "/", userinfo: Some("")),
      ))
      uri.parse("foo://@/")
      |> should.equal(Ok(
        Uri(
          ..uri.empty_uri,
          scheme: Some("foo"),
          host: Some(""),
          path: "/",
          userinfo: Some(""),
        ),
      ))
      uri.parse("//localhost:/")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("localhost"), path: "/"),
      ))
      uri.parse("//:")
      |> should.equal(Ok(
        Uri(..uri.empty_uri, host: Some("localhost"), path: ""),
      ))
    }),
  ])
}

pub fn parse_failure_tests() {
  describe("fail parsing", [
    it("failure", fn() {
      uri.parse("å") |> should.be_error
      uri.parse("aå:/foo") |> should.be_error
      uri.parse("foo://usär@host") |> should.be_error
      uri.parse("//host/path?foö=bar") |> should.be_error
      uri.parse("//host/path#foö") |> should.be_error
      uri.parse("//[:::127.0.0.1]") |> should.be_error
      uri.parse("//localhost:A8") |> should.be_error
    }),
  ])
}
// gleeunit test functions end in `_test`
// pub fn uri_test() {
//   match("uri:")
//   match("//@")
//   match("//")
//   match("")
//   match("?")
//   match("#")
//   match("#\t")
//   match("//:")
// }

// fn match(uri: String) {
//   assert uri.parse(uri)  |> uri.to_uri
//     == uri2.parse(uri)
// }