ocaml/test/test_jam_debug.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

open Nock_lib.Noun
open Nock_lib.Serial

let () =
  Printf.printf "Testing jam encoding:\n";
  
  (* Test 0 *)
  let n0 = atom 0 in
  let j0 = jam n0 in
  Printf.printf "jam(0) = %s\n" (bytes_to_hex j0);
  
  (* Test 1 *)
  let n1 = atom 1 in
  let j1 = jam n1 in
  Printf.printf "jam(1) = %s\n" (bytes_to_hex j1);
  
  (* Test 2 *)
  let n2 = atom 2 in
  let j2 = jam n2 in
  Printf.printf "jam(2) = %s\n" (bytes_to_hex j2);