fixed jamcue

1 files changed, 17 insertions, 0 deletions

diff --git a/ocaml/tmp/test_jam.ml b/ocaml/tmp/test_jam.ml
new file mode 100644
index 0000000..e616e3e
--- /dev/null
+++ b/ocaml/tmp/test_jam.ml
@@ -0,0 +1,17 @@
+open Nock_lib.Noun
+open Nock_lib.Serial
+
+let () =
+  let test n_int =
+    let n = atom n_int in
+    let jammed = jam n in
+    Printf.printf "jam(%d) = %s\n" n_int (bytes_to_hex jammed);
+    let cued = cue jammed in
+    match cued with
+    | Atom a -> Printf.printf "cue -> %s\n" (Z.to_string a)
+    | Cell _ -> Printf.printf "cue -> cell?!\n"
+  in
+  test 0;
+  test 1;
+  test 2;
+  test 42;