fixed jamcue

1 files changed, 20 insertions, 0 deletions

diff --git a/ocaml/test/test_jam_debug.ml b/ocaml/test/test_jam_debug.ml
new file mode 100644
index 0000000..cad3ee9
--- /dev/null
+++ b/ocaml/test/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);