yeahyeah

1 files changed, 15 insertions, 0 deletions

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"