1 (* Test if bitstrings are all zeroes or all ones.
9 let bits = Bitstring.zeroes_bitstring i in
10 if not (Bitstring.is_zeroes_bitstring bits) then (
11 eprintf "is_zeros_bitstring failed %d\n" i;
14 if i > 0 && Bitstring.is_ones_bitstring bits then (
15 eprintf "false match is_ones_bitstring %d\n" i;
20 let bits = Bitstring.ones_bitstring i in
21 if not (Bitstring.is_ones_bitstring bits) then (
22 eprintf "is_ones_bitstring failed %d\n" i;
25 if i > 0 && Bitstring.is_zeroes_bitstring bits then (
26 eprintf "false match is_zeroes_bitstring %d\n" i;