From a6b0a2134b7f82e38792f7f8794526e1a7be98ca Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 16 Mar 2022 16:48:43 -0400
Subject: [PATCH] add basic test that emits fake data

---
 emit1.sh       |  2 ++
 tests/dune     |  4 ++++
 tests/emit1.ml | 26 ++++++++++++++++++++++++++
 3 files changed, 32 insertions(+)
 create mode 100755 emit1.sh
 create mode 100644 tests/dune
 create mode 100644 tests/emit1.ml

diff --git a/emit1.sh b/emit1.sh
new file mode 100755
index 00000000..8ab2f6a6
--- /dev/null
+++ b/emit1.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec dune exec --profile=release tests/emit1.exe -- $@
diff --git a/tests/dune b/tests/dune
new file mode 100644
index 00000000..e65353ae
--- /dev/null
+++ b/tests/dune
@@ -0,0 +1,4 @@
+
+(executable
+  (name emit1)
+  (libraries unix opentelemetry opentelemetry-client-ocurl))
diff --git a/tests/emit1.ml b/tests/emit1.ml
new file mode 100644
index 00000000..6e42566b
--- /dev/null
+++ b/tests/emit1.ml
@@ -0,0 +1,26 @@
+
+module T = Opentelemetry
+
+let run () =
+  Printf.printf "collector is on %S\n%!" (Opentelemetry_client_ocurl.get_url());
+  let i = ref 0 in
+  while true do
+    Unix.sleepf 2.;
+
+    let gc = Gc.stat() in
+    T.Metrics.(
+      emit [
+        gauge ~name:"i" [int !i];
+        gauge ~name:"major-heap-words" [int gc.Gc.heap_words];
+        sum ~name:"minor-allocated" [float gc.Gc.minor_words];
+      ]);
+
+    incr i;
+
+    (* allocate some stuff *)
+    let _arr = Sys.opaque_identity @@ Array.make (25 * 25551) 42.0 in
+    ignore _arr;
+  done
+
+let () =
+  Opentelemetry_client_ocurl.with_setup run