simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 20:04:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

unit test fixes

Browse source
This commit is contained in:
cpiccion 2015-02-20 16:20:03 -05:00
parent a1ca8ff831
commit 777aca435a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/data/CCRingBuffer.ml
View file

@ -361,7 +361,7 @@ struct
(*$Q (*$Q
(Q.pair Q.printable_string Q.printable_string) (fun (s,s') -> \ (Q.pair Q.printable_string Q.printable_string) (fun (s,s') -> \
(let b = ByteBuffer.create 24 in ByteBuffer.blit_from b s 0 (Bytes.length s); (let b = ByteBuffer.create 24 in ByteBuffer.blit_from b s 0 (Bytes.length s); \
ByteBuffer.blit_from b s' 0 (Bytes.length s'); \ ByteBuffer.blit_from b s' 0 (Bytes.length s'); \
ByteBuffer.blit_from b "hello world" 0 (Bytes.length "hello word"); (* big enough *) \ ByteBuffer.blit_from b "hello world" 0 (Bytes.length "hello word"); (* big enough *) \
let l = ByteBuffer.length b in let l' = l/2 in ByteBuffer.skip b l'; \ let l = ByteBuffer.length b in let l' = l/2 in ByteBuffer.skip b l'; \