From 777aca435ae7eee3d847101f7b774d8df659c059 Mon Sep 17 00:00:00 2001 From: cpiccion Date: Fri, 20 Feb 2015 16:20:03 -0500 Subject: [PATCH] unit test fixes --- src/data/CCRingBuffer.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/data/CCRingBuffer.ml b/src/data/CCRingBuffer.ml index fe064467..cf19483d 100644 --- a/src/data/CCRingBuffer.ml +++ b/src/data/CCRingBuffer.ml @@ -361,7 +361,7 @@ struct (*$Q (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 "hello world" 0 (Bytes.length "hello word"); (* big enough *) \ let l = ByteBuffer.length b in let l' = l/2 in ByteBuffer.skip b l'; \