test/t_optint.ml

   1
   2 let hex ppf x = x
   3                 |> Optint.to_int
   4                 |> Format.fprintf ppf "%x"
   5
   6 let test_hex () =
   7   Optint.of_string "1234567"
   8   |> Format.asprintf "0x%a" hex
   9   |> Assrt.equals_string __LOC__ "0x12d687"
  10
  11 let () =
  12   Unix.chdir "../../../test/";
  13   test_hex ();
  14   assert true