diff options
| author | polwex <polwex@sortug.com> | 2025-10-06 23:18:59 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-10-06 23:18:59 +0700 |
| commit | 5de3f7a3ad7b0cf63b4a6cbddfc1e26359dea161 (patch) | |
| tree | b55b2258123149bed40bd89bbaa58e7da54f3a26 /ocaml/test/jam_compare.ml | |
| parent | fdab65f6dac4ba85ed4749f61970660d1132d453 (diff) | |
cleaned up tests
Diffstat (limited to 'ocaml/test/jam_compare.ml')
| -rw-r--r-- | ocaml/test/jam_compare.ml | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/ocaml/test/jam_compare.ml b/ocaml/test/jam_compare.ml deleted file mode 100644 index bdbc306..0000000 --- a/ocaml/test/jam_compare.ml +++ /dev/null @@ -1,36 +0,0 @@ -open Nock_lib.Noun -open Nock_lib.Serial - -let () = - Printf.printf "# OCaml jam outputs (hex)\n"; - - (* Simple atoms *) - Printf.printf "0: %s\n" (bytes_to_hex (jam (atom 0))); - Printf.printf "1: %s\n" (bytes_to_hex (jam (atom 1))); - Printf.printf "2: %s\n" (bytes_to_hex (jam (atom 2))); - Printf.printf "42: %s\n" (bytes_to_hex (jam (atom 42))); - Printf.printf "255: %s\n" (bytes_to_hex (jam (atom 255))); - Printf.printf "256: %s\n" (bytes_to_hex (jam (atom 256))); - - (* Simple cells *) - Printf.printf "[1 2]: %s\n" (bytes_to_hex (jam (cell (atom 1) (atom 2)))); - Printf.printf "[0 0]: %s\n" (bytes_to_hex (jam (cell (atom 0) (atom 0)))); - Printf.printf "[42 43]: %s\n" (bytes_to_hex (jam (cell (atom 42) (atom 43)))); - - (* Nested cells *) - Printf.printf "[[1 2] 3]: %s\n" - (bytes_to_hex (jam (cell (cell (atom 1) (atom 2)) (atom 3)))); - Printf.printf "[1 [2 3]]: %s\n" - (bytes_to_hex (jam (cell (atom 1) (cell (atom 2) (atom 3))))); - - (* Balanced tree *) - Printf.printf "[[1 2] [3 4]]: %s\n" - (bytes_to_hex (jam (cell (cell (atom 1) (atom 2)) (cell (atom 3) (atom 4))))); - - (* Larger tree *) - Printf.printf "[[[1 2] [3 4]] [[5 6] [7 8]]]: %s\n" - (bytes_to_hex (jam ( - cell - (cell (cell (atom 1) (atom 2)) (cell (atom 3) (atom 4))) - (cell (cell (atom 5) (atom 6)) (cell (atom 7) (atom 8))) - ))) |