tests/test_34_takebits.ml

   1 (* Test takebits call.
   2  * $Id$
   3  *)
   4
   5 open Printf
   6 open Bitstring
   7
   8 let () =
   9   let bits = make_bitstring 65 '\x5a' in
  10   for len = 0 to 65 do
  11     let sub = takebits len bits in
  12     assert (bitstring_length sub = len)
  13   done