unikernel/duniverse/dune_/otherlibs/chrome-trace/test/chrome_trace_tests.ml

@@ -0,0 +1,51 @@
+open Stdune
+open Dune_tests_common
+
+let () = init ()
+let buf = Buffer.create 0
+
+let c =
+  let write s = Buffer.add_string buf s in
+  let close () = () in
+  let flush () = () in
+  Dune_stats.create (Custom { write; close; flush }) ~extended_build_job_info:false
+;;
+
+let () =
+  let module Event = Chrome_trace.Event in
+  let module Id = Chrome_trace.Id in
+  let module Timestamp = Event.Timestamp in
+  let events =
+    [ Event.complete
+        ~dur:(Timestamp.of_float_seconds 1.)
+        ~args:[ "foo", `String "bar" ]
+        (Event.common_fields ~ts:(Timestamp.of_float_seconds 0.5) ~name:"foo" ())
+    ; Event.counter
+        (Event.common_fields ~ts:(Timestamp.of_float_seconds 0.5) ~name:"cnt" ())
+        [ "bar", `Int 250 ]
+    ; Event.async
+        (Id.create (`String "foo"))
+        Event.Start
+        (Event.common_fields ~ts:(Timestamp.of_float_seconds 0.5) ~name:"async" ())
+        ~args:[ "foo", `Int 100 ]
+    ]
+  in
+  List.iter events ~f:(Dune_stats.emit c);
+  Dune_stats.close c
+;;
+
+let buffer_lines () = String.split_lines (Buffer.contents buf)
+
+let%expect_test _ =
+  Format.printf
+    "%a@."
+    Pp.to_fmt
+    (Pp.vbox (Pp.concat_map (buffer_lines ()) ~sep:Pp.cut ~f:Pp.verbatim));
+  [%expect
+    {|
+[{"args":{"foo":"bar"},"ph":"X","dur":1000000,"name":"foo","cat":"","ts":500000,"pid":0,"tid":0}
+,{"ph":"C","args":{"bar":250},"name":"cnt","cat":"","ts":500000,"pid":0,"tid":0}
+,{"args":{"foo":100},"ph":"b","id":"foo","name":"async","cat":"","ts":500000,"pid":0,"tid":0}
+]
+|}]
+;;

unikernel/duniverse/dune_/otherlibs/chrome-trace/test/dune

@@ -0,0 +1,16 @@
+(library
+ (name chrome_trace_tests)
+ (inline_tests)
+ (libraries
+  dune_tests_common
+  stdune
+  dune_stats
+  chrome_trace
+  ;; This is because of the (implicit_transitive_deps false)
+  ;; in dune-project
+  ppx_expect.config
+  ppx_expect.config_types
+  base
+  ppx_inline_test.config)
+ (preprocess
+  (pps ppx_expect)))