balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

test_p2p_connection: put more deterministic garbled data

Browse Source
This commit is contained in:
OCamlPro-Iguernlala 2017-04-14 12:57:34 +02:00
parent 7f9c77cee8
commit b5c6f6cb2f
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/p2p/test_p2p_connection.ml
View File

@ -287,9 +287,19 @@ end
module Garbled_data = struct module Garbled_data = struct
let encoding = Data_encoding.bytes let encoding =
let open Data_encoding in
dynamic_size @@ option @@ string
let garbled_msg = MBytes.create (1 lsl 4) (* generate a fixed garbled_msg to avoid 'Data_encoding.Binary.Await
_', which blocks 'make test' *)
let garbled_msg =
let buf = MBytes.create (1 lsl 4) in
MBytes.set_int32 buf 0 (Int32.of_int 4);
MBytes.set_int32 buf 4 (Int32.of_int (-1));
MBytes.set_int32 buf 8 (Int32.of_int (-1));
MBytes.set_int32 buf 12 (Int32.of_int (-1));
buf
let server _ch sched socket = let server _ch sched socket =
accept sched socket >>=? fun (_info, auth_fd) -> accept sched socket >>=? fun (_info, auth_fd) ->