git.annexia.org
/
ocaml-bitstring.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Version 1.9.9 for release.
[ocaml-bitstring.git]
/
tests
/
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