From d7edee0821eeff39d8f28f064d5e7a85fca6ad94 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Mon, 6 Oct 2025 02:19:52 +0700
Subject: yeahyeah

---
 ocaml/test/test_bench_one.ml | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 ocaml/test/test_bench_one.ml

(limited to 'ocaml/test/test_bench_one.ml')

diff --git a/ocaml/test/test_bench_one.ml b/ocaml/test/test_bench_one.ml
new file mode 100644
index 0000000..1a73be5
--- /dev/null
+++ b/ocaml/test/test_bench_one.ml
@@ -0,0 +1,15 @@
+open Nock_lib.Noun  
+open Nock_lib.Serial
+
+let () =
+  Printf.printf "Running single bench iteration...\n";
+  for i = 1 to 10 do
+    Printf.printf "Iter %d: " i;
+    flush stdout;
+    let n = atom 42 in
+    let j = jam n in
+    let c = cue j in
+    Format.printf "%a\n" pp_noun c;
+    flush stdout
+  done;
+  Printf.printf "Done!\n"
-- 
cgit v1.2.3