1 (* Test concat and the bit get functions.
11 Bitstring.ones_bitstring i;
12 Bitstring.zeroes_bitstring j;
13 Bitstring.ones_bitstring k
15 assert (Bitstring.bitstring_length bits = i+j+k);
17 assert (Bitstring.is_set bits n)
20 assert (Bitstring.is_clear bits n)
22 for n = i+j to i+j+k-1 do
23 assert (Bitstring.is_set bits n)