git.annexia.org
/
ocaml-bitstring.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
CIL example: <linux/fs.h> is now required for <linux/ext3_fs.h>
[ocaml-bitstring.git]
/
tests
/
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