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 clear qtest

Browse source
This commit is contained in:
carm 2015-02-22 18:51:06 -05:00
parent a2a6d28229
commit aecbbf0dcd
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

@ -356,6 +356,16 @@ struct
b.start <- 0; b.start <- 0;
() ()
(*$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.clear b; \
ByteBuffer.length b = 0
*)
let reset b = let reset b =
clear b; clear b;
b.buf <- Array.empty b.buf <- Array.empty