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_jam_debug.ml | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 ocaml/test/old/test_jam_debug.ml (limited to 'ocaml/test/old/test_jam_debug.ml') diff --git a/ocaml/test/old/test_jam_debug.ml b/ocaml/test/old/test_jam_debug.ml new file mode 100644 index 0000000..cad3ee9 --- /dev/null +++ b/ocaml/test/old/test_jam_debug.ml @@ -0,0 +1,20 @@ +open Nock_lib.Noun +open Nock_lib.Serial + +let () = + Printf.printf "Testing jam encoding:\n"; + + (* Test 0 *) + let n0 = atom 0 in + let j0 = jam n0 in + Printf.printf "jam(0) = %s\n" (bytes_to_hex j0); + + (* Test 1 *) + let n1 = atom 1 in + let j1 = jam n1 in + Printf.printf "jam(1) = %s\n" (bytes_to_hex j1); + + (* Test 2 *) + let n2 = atom 2 in + let j2 = jam n2 in + Printf.printf "jam(2) = %s\n" (bytes_to_hex j2); -- cgit v1.2.3