From 5de3f7a3ad7b0cf63b4a6cbddfc1e26359dea161 Mon Sep 17 00:00:00 2001 From: polwex Date: Mon, 6 Oct 2025 23:18:59 +0700 Subject: cleaned up tests --- ocaml/test/old/test_roundtrip.ml | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 ocaml/test/old/test_roundtrip.ml (limited to 'ocaml/test/old/test_roundtrip.ml') diff --git a/ocaml/test/old/test_roundtrip.ml b/ocaml/test/old/test_roundtrip.ml new file mode 100644 index 0000000..4a4e635 --- /dev/null +++ b/ocaml/test/old/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" -- cgit v1.2.3