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

make some tests more random

Browse source
This commit is contained in:
carm 2015-02-22 20:29:13 -05:00
parent 67eae77105
commit 7c0ed782e4
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/data/CCRingBuffer.ml
View file

@ -421,13 +421,13 @@ struct
b.start <- 0;
()
(*$T
let s = Bytes.of_string "hello world" in \
(*$Q
Q.printable_string (fun s -> \
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
ByteBuffer.length b = 0)
*)
@ -435,13 +435,13 @@ struct
clear b;
b.buf <- Array.empty
(*$T
let s = Bytes.of_string "hello world" in \
(*$Q
Q.printable_string (fun s -> \
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
ByteBuffer.length b = 0 && ByteBuffer.capacity b = 0)
*)