simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ringbuffer reset qtest

Browse source
This commit is contained in:
carm 2015-02-22 18:53:16 -05:00
parent aecbbf0dcd
commit d8c2bd9da5
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/data/CCRingBuffer.ml
View file

@ -370,6 +370,16 @@ struct
clear b;
b.buf <- Array.empty
(*$T
let s = Bytes.of_string "hello world" in \
let s_len = Bytes.length s in \
let b = ByteBuffer.create s_len in \
ByteBuffer.blit_from b s 0 s_len; \
ByteBuffer.reset b; \
ByteBuffer.length b = 0 && ByteBuffer.capacity b = 0
*)
let is_empty b = b.start = b.stop
let take_front b =