formatting

This commit is contained in:
carm 2015-02-19 23:10:19 -05:00
parent 8d814d4feb
commit a1ca8ff831

View file

@ -203,13 +203,13 @@ struct
let copy b =
{ b with buf=Array.copy b.buf; }
(*$T
(*$T
let b = ByteBuffer.create 3 in \
let s = Bytes.of_string "hello world" in \
ByteBuffer.blit_from b s 0 (Bytes.length s); \
let b' = ByteBuffer.copy b in \
try ByteBuffer.iteri b (fun i c -> if ByteBuffer.get_front b' i <> c then raise Exit); true with Exit -> false
*)
*)
let capacity b = Array.length b.buf