yeahyeah

1 files changed, 15 insertions, 0 deletions

diff --git a/ocaml/test/test_roundtrip.ml b/ocaml/test/test_roundtrip.ml
new file mode 100644
index 0000000..4a4e635
--- /dev/null
+++ b/ocaml/test/test_roundtrip.ml
@@ -0,0 +1,15 @@
+open Nock_lib.Noun
+open Nock_lib.Serial
+
+let () =
+  Printf.printf "Testing roundtrip...\n";
+  let n = atom 42 in
+  for i = 1 to 5 do
+    Printf.printf "Iteration %d\n" i;
+    let j = jam n in
+    Printf.printf "  jammed: %s\n" (bytes_to_hex j);
+    let c = cue j in
+    Format.printf "  cued: %a\n" pp_noun c;
+    flush stdout
+  done;
+  Printf.printf "Done!\n"