From: Richard W.M. Jones <rich@annexia.org>
Date: Wed, 27 Aug 2008 12:56:11 +0000 (+0000)
Subject: Test the subbitstring and takebits functions.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=1042240e7352926515d8402b48faec205ebb9854;p=ocaml-bitstring.git

Test the subbitstring and takebits functions.
---

diff --git a/tests/33_substring.ml b/tests/33_substring.ml
new file mode 100644
index 0000000..f6bc93d
--- /dev/null
+++ b/tests/33_substring.ml
@@ -0,0 +1,20 @@
+(* Test subbitstring call.
+ * $Id$
+ *)
+
+open Printf
+open Bitstring
+
+let () =
+  let bits = make_bitstring 65 '\x5a' in
+  for off = 0 to 65 do
+    for len = 65-off to 0 do
+      let sub = subbitstring bits off len in
+      for i = 0 to len-1 do
+	if get bits (off+i) <> get sub i then (
+	  eprintf "33_substring: failed %d %d %d\n" off len i;
+	  exit 1
+	)
+      done
+    done
+  done
diff --git a/tests/34_takebits.ml b/tests/34_takebits.ml
new file mode 100644
index 0000000..b86591d
--- /dev/null
+++ b/tests/34_takebits.ml
@@ -0,0 +1,13 @@
+(* Test takebits call.
+ * $Id$
+ *)
+
+open Printf
+open Bitstring
+
+let () =
+  let bits = make_bitstring 65 '\x5a' in
+  for len = 0 to 65 do
+    let sub = takebits len bits in
+    assert (bitstring_length sub = len)
+  done