From aecbbf0dcd9fe8509b5330c7490ee61ee37c6497 Mon Sep 17 00:00:00 2001
From: carm <carmelo.piccione@gmail.com>
Date: Sun, 22 Feb 2015 18:51:06 -0500
Subject: [PATCH] ringbuffer clear qtest

---
 src/data/CCRingBuffer.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/data/CCRingBuffer.ml b/src/data/CCRingBuffer.ml
index 3be95455..b68d803d 100644
--- a/src/data/CCRingBuffer.ml
+++ b/src/data/CCRingBuffer.ml
@@ -356,6 +356,16 @@ struct
     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 =
     clear b;
     b.buf <- Array.empty