Add failing test for relative url starting with //

See #167.

Author: reynir

lib_test/test_runner.ml

@@ -680,6 +680,14 @@ let test_ipv6_parsing =
     name >:: test
   ) ipv6_addresses
 
+let test_make_path_rel_identity =
+  let path = "//aaa/bbb" in
+  sprintf "of_string (to_string _) identity:%s" path >:: fun () ->
+    let u = Uri.make ~path () in
+    let u' = Uri.of_string (Uri.to_string u) in
+    assert_equal ~printer:Uri.to_string ~cmp:Uri.equal
+      u u'
+
 let compat_uris =
   [ "http://\nhost"
   ; "http://host\n/path"
@@ -723,6 +731,7 @@ let _ =
     @ test_canonicalize
     @ test_with_uri
     @ test_ipv6_parsing
+    @ [ test_make_path_rel_identity ]
   ) in
   let verbose = ref false in
   let set_verbose _ = verbose := true in