47 lines
1.9 KiB
OCaml
47 lines
1.9 KiB
OCaml
|
open Crowbar
|
||
|
|
|
||
|
|
let () =
|
||
|
|
add_test ~name:"create" [bytes] (fun a ->
|
||
|
|
(* Parse \n as this is a known deviation of behaviour *)
|
||
|
|
let a = Str.(global_replace (regexp_string "\n") a "") in
|
||
|
|
let x = try Uri.(of_string a |> to_string) with _ -> "" in
|
||
|
|
let y = try Uri_legacy.(of_string a |> to_string) with _ -> "" in
|
||
|
|
check_eq ~pp:pp_string x y
|
||
|
|
);
|
||
|
|
add_test ~name:"query" [bytes] (fun a ->
|
||
|
|
(* Parse \n as this is a known deviation of behaviour *)
|
||
|
|
let a = Str.(global_replace (regexp_string "\n") a "") in
|
||
|
|
let x = try Uri.(of_string a |> query) with _ -> [] in
|
||
|
|
let y = try Uri_legacy.(of_string a |> query) with _ -> [] in
|
||
|
|
check_eq x y
|
||
|
|
);
|
||
|
|
add_test ~name:"scheme" [bytes] (fun a ->
|
||
|
|
(* Parse \n as this is a known deviation of behaviour *)
|
||
|
|
let a = Str.(global_replace (regexp_string "\n") a "") in
|
||
|
|
let x = try Uri.(of_string a |> scheme) with _ -> None in
|
||
|
|
let y = try Uri_legacy.(of_string a |> scheme) with _ -> None in
|
||
|
|
check_eq x y
|
||
|
|
);
|
||
|
|
add_test ~name:"host" [bytes] (fun a ->
|
||
|
|
(* Parse \n as this is a known deviation of behaviour *)
|
||
|
|
let a = Str.(global_replace (regexp_string "\n") a "") in
|
||
|
|
let x = try Uri.(of_string a |> host) with _ -> None in
|
||
|
|
let y = try Uri_legacy.(of_string a |> host) with _ -> None in
|
||
|
|
check_eq x y
|
||
|
|
);
|
||
|
|
add_test ~name:"userinfo" [bytes] (fun a ->
|
||
|
|
(* Parse \n as this is a known deviation of behaviour *)
|
||
|
|
let a = Str.(global_replace (regexp_string "\n") a "") in
|
||
|
|
let x = try Uri.(of_string a |> userinfo) with _ -> None in
|
||
|
|
let y = try Uri_legacy.(of_string a |> userinfo) with _ -> None in
|
||
|
|
check_eq x y
|
||
|
|
);
|
||
|
|
add_test ~name:"port" [bytes] (fun a ->
|
||
|
|
(* Parse \n as this is a known deviation of behaviour *)
|
||
|
|
let a = Str.(global_replace (regexp_string "\n") a "") in
|
||
|
|
let x = try Uri.(of_string a |> port) with _ -> None in
|
||
|
|
let y = try Uri_legacy.(of_string a |> port) with _ -> None in
|
||
|
|
check_eq x y
|
||
|
|
);
|
||
|
|
|