1 (* Test the various functions to load bitstrings from files.
10 let b1 = make_bitstring 800 '\x5a' in
11 let b2 = make_bitstring 400 '\x88' in (
18 let b = make_bitstring 800 '\xaa' in
23 let bits = concat [bits1; bits2] in
25 Filename.open_temp_file ~mode:[Open_binary] "bitstring_test" ".tmp" in
26 bitstring_to_chan bits chan;
29 let bits' = bitstring_of_file filename in
30 assert (equals bits bits');
32 let chan = open_in filename in
33 let bits' = bitstring_of_chan chan in
35 assert (equals bits bits');
37 let chan = open_in filename in
38 let bits' = bitstring_of_chan_max chan 150 in
39 assert (equals bits1 bits');
40 let bits' = bitstring_of_chan_max chan 100 in
41 assert (equals bits2 bits');
44 let fd = Unix.openfile filename [Unix.O_RDONLY] 0 in
45 let bits' = bitstring_of_file_descr fd in
47 assert (equals bits bits');
49 let fd = Unix.openfile filename [Unix.O_RDONLY] 0 in
50 let bits' = bitstring_of_file_descr_max fd 150 in
51 assert (equals bits1 bits');
52 let bits' = bitstring_of_file_descr_max fd 100 in
53 assert (equals bits2 bits');