X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=tests%2F10_match_bits.ml;h=f0dde309733e6aaea2422a727e8ff78012f7d9a3;hb=86502a23458f9e93c8241735649ac2edd7fbc68a;hp=90a7a0856a53e61bae75e41d9e741b1bf0a496ac;hpb=de6efed668136104f0597834c9345fde03d98c02;p=ocaml-bitstring.git

diff --git a/tests/10_match_bits.ml b/tests/10_match_bits.ml
index 90a7a08..f0dde30 100644
--- a/tests/10_match_bits.ml
+++ b/tests/10_match_bits.ml
@@ -17,9 +17,9 @@ let () =
     (* Create a random string of bits. *)
     let expected = List.map (fun _ -> Random.bool ()) (range 0 (len-1)) in
 
-    let bits = Bitmatch.Buffer.create () in
-    List.iter (Bitmatch.Buffer.add_bit bits) expected;
-    let bits = Bitmatch.Buffer.contents bits in
+    let bits = Bitstring.Buffer.create () in
+    List.iter (Bitstring.Buffer.add_bit bits) expected;
+    let bits = Bitstring.Buffer.contents bits in
 
     (* Now read the bitstring in groups of 1, 2, 3 .. etc. bits.
      * In each case check the result against what we generated ('expected').