tests/test_33_substring.ml

   1 (* Test subbitstring call.
   2  * $Id$
   3  *)
   4
   5 open Printf
   6 open Bitstring
   7
   8 let () =
   9   let bits = make_bitstring 65 '\x5a' in
  10   for off = 0 to 65 do
  11     for len = 65-off to 0 do
  12       let sub = subbitstring bits off len in
  13       for i = 0 to len-1 do
  14         if get bits (off+i) <> get sub i then (
  15           eprintf "33_substring: failed %d %d %d\n" off len i;
  16           exit 1
  17         )
  18       done
  19     done
  20   done