This commit is contained in:
parent
d29c73f627
commit
4331d7c706
3 changed files with 163 additions and 35 deletions
|
|
@ -38,8 +38,11 @@ let parse input =
|
|||
| Ok defs -> defs
|
||||
| Error msg -> failwith msg
|
||||
|
||||
let read_file file = In_channel.with_open_bin file In_channel.input_all
|
||||
|
||||
let () =
|
||||
let l = parse Data.content in
|
||||
let content = read_file "taler_signatures.h" in
|
||||
let l = parse content in
|
||||
assert (List.length l = 74);
|
||||
|
||||
let pp ppf { name; value } =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue