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

Stdlib/Ring: fix ring's semantics

Browse Source
This commit is contained in:
Vincent Botbol 2018-10-26 03:08:09 +02:00 committed by Benjamin Canou
parent f898062fd4
commit 14b1ba2adc
No known key found for this signature in database
GPG Key ID: 73607948459DC5F8
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib_p2p/test/test_p2p_peerset.ml
View File

@ -60,7 +60,9 @@ let test_overflow _ =
assert_equal_bool ~msg:__LOC__ true (P2p_acl.PeerRing.mem set (a "baz"));
P2p_acl.PeerRing.add set (a "zor");
assert_equal_bool ~msg:__LOC__ true (P2p_acl.PeerRing.mem set (a "zor"));
assert_equal_bool ~msg:__LOC__ false (P2p_acl.PeerRing.mem set (a "baz"))
assert_equal_bool ~msg:__LOC__ false (P2p_acl.PeerRing.mem set (a "foo"));
assert_equal_bool ~msg:__LOC__ true (P2p_acl.PeerRing.mem set (a "bar"));
assert_equal_bool ~msg:__LOC__ true (P2p_acl.PeerRing.mem set (a "baz"))
let () =
Alcotest.run ~argv:[|""|] "tezos-p2p" [

8
src/lib_stdlib/ring.ml
View File

@ -33,7 +33,11 @@ module Ring = struct
type 'a t = 'a raw ref
let create size = ref (Empty size)
let create size =
if size <= 0 then
invalid_arg "Ring.create: size must be positive"
else
ref (Empty size)
let add r v =
match !r with
@ -52,7 +56,7 @@ module Ring = struct
| Empty _ -> None
| Inited s ->
if s.pos >= Array.length s.data - 1 then
Some (s.data.(s.pos mod Array.length s.data))
Some (s.data.((s.pos + 1) mod Array.length s.data))
else
None in
add r v ; replaced