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

Fix POW

Browse Source
This commit is contained in:
Grégoire Henry 2017-01-23 22:01:18 +01:00
parent 197ac28f0b
commit 5266671c72
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/test_p2p_connection.ml
View File

@ -14,14 +14,13 @@ open Error_monad
open P2p_types open P2p_types
include Logging.Make (struct let name = "test-p2p-connection" end) include Logging.Make (struct let name = "test-p2p-connection" end)
let proof_of_work_target = let proof_of_work_target = Crypto_box.make_target 16.
Crypto_box.make_target [Int64.shift_left 1L 48]
let id1 = Identity.generate proof_of_work_target let id1 = Identity.generate proof_of_work_target
let id2 = Identity.generate proof_of_work_target let id2 = Identity.generate proof_of_work_target
let id0 = let id0 =
(* Luckilly, this will be an insuficient proof of work! *) (* Luckilly, this will be an insuficient proof of work! *)
Identity.generate (Crypto_box.make_target []) Identity.generate (Crypto_box.make_target 0.)
let versions = Version.[{ name = "TEST" ; minor = 0 ; major = 0 }] let versions = Version.[{ name = "TEST" ; minor = 0 ; major = 0 }]

2
test/test_p2p_connection_pool.ml
View File

@ -126,7 +126,7 @@ let run_net config repeat points addr port =
let make_net points repeat n = let make_net points repeat n =
let point, points = Utils.select n points in let point, points = Utils.select n points in
let proof_of_work_target = Crypto_box.make_target [] in let proof_of_work_target = Crypto_box.make_target 0. in
let identity = Identity.generate proof_of_work_target in let identity = Identity.generate proof_of_work_target in
let config = P2p_connection_pool.{ let config = P2p_connection_pool.{
identity ; identity ;