Commit 5c8041b5 authored by Stephane Glondu's avatar Stephane Glondu

Check encrypted tally in "belenios-tool verify"

parent b0ded55d
...@@ -178,7 +178,9 @@ module Make (P : PARSED_PARAMS) : S = struct ...@@ -178,7 +178,9 @@ module Make (P : PARSED_PARAMS) : S = struct
); );
(match get_result () with (match get_result () with
| Some result -> | Some result ->
assert (E.check_result pks (result_of_string G.read result)) let result = result_of_string G.read result in
assert (Lazy.force encrypted_tally = result.encrypted_tally);
assert (E.check_result pks result)
| None -> print_msg "W: no result to check" | None -> print_msg "W: no result to check"
); );
print_msg "I: all checks passed" print_msg "I: all checks passed"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment