1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- 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
|