diff options
Diffstat (limited to 'ocaml/test/test_roundtrip.ml')
-rw-r--r-- | ocaml/test/test_roundtrip.ml | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/ocaml/test/test_roundtrip.ml b/ocaml/test/test_roundtrip.ml deleted file mode 100644 index 4a4e635..0000000 --- a/ocaml/test/test_roundtrip.ml +++ /dev/null @@ -1,15 +0,0 @@ -open Nock_lib.Noun -open Nock_lib.Serial - -let () = - Printf.printf "Testing roundtrip...\n"; - let n = atom 42 in - for i = 1 to 5 do - Printf.printf "Iteration %d\n" i; - let j = jam n in - Printf.printf " jammed: %s\n" (bytes_to_hex j); - let c = cue j in - Format.printf " cued: %a\n" pp_noun c; - flush stdout - done; - Printf.printf "Done!\n" |