diff options
Diffstat (limited to 'ocaml/tmp/test_jam.ml')
-rw-r--r-- | ocaml/tmp/test_jam.ml | 17 |
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; |