open Nock_lib.Noun open Nock_lib.Serial let () = for i = 0 to 10 do let n = atom i in let jammed = jam n in Printf.printf "jam(%d) = %s (%d bytes)\n" i (bytes_to_hex jammed) (Bytes.length jammed) done let () = Printf.printf "\nRound-trip tests:\n"; for i = 0 to 50 do let n = atom i in let jammed = jam n in let cued = cue jammed in match cued with | Atom a when Z.equal a (Z.of_int i) -> Printf.printf "OK: %d\n" i | Atom a -> Printf.printf "FAIL: %d -> %s\n" i (Z.to_string a); exit 1 | Cell _ -> Printf.printf "FAIL: %d -> cell\n" i; exit 1 done