seppo/test/ezjsonm_test.ml

let test_constructing () =
  `O
    [
      ("id", `String "398eb027");
      ("name", `String "John Doe");
      ( "pages",
        `O
          [
            ("id", Ezjsonm.int 1); ("title", `String "The Art of Flipping Coins");
          ] );
    ]
  |> Ezjsonm.to_string ~minify:true
  |> Assrt.equals_string __LOC__
    "{\"id\":\"398eb027\",\"name\":\"John \
     Doe\",\"pages\":{\"id\":1,\"title\":\"The Art of Flipping Coins\"}}"

let test_load_peertube () =
  let extract3tries k0 k1 j =
    match Ezjsonm.find j [ k0 ] with
    | `String s -> Some s
    | `A (`String s :: _) -> Some s
    | `A ((`O _ as hd) :: _) -> (
        (* ignore 'type' *)
        match Ezjsonm.find hd [ k1 ] with `String s -> Some s | _ -> None)
    | _ -> None
  in
  let ic = open_in "data/peertube-video.json" in
  ic |> Ezjsonm.from_channel
  |> extract3tries "attributedTo" "id"
  |> Option.get |> Uri.of_string |> Uri.to_string
  |> Assrt.equals_string __LOC__
    "https://tube.network.europa.eu/accounts/edps";
  close_in ic;
  let ic = open_in "data/ap/actor/peertube.0.json" in
  let _a = Ezjsonm.from_channel ic in
  close_in ic;
  assert true

let () =
  Unix.chdir "../../../test/";
  test_constructing ();
  test_load_peertube ();
  assert true