git.annexia.org
/
ocaml-bitstring.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement save_to_offset() and partially implement when() and bind().
[ocaml-bitstring.git]
/
tests
/
62_offset_padding.ml
diff --git
a/tests/62_offset_padding.ml
b/tests/62_offset_padding.ml
index
46ed300
..
dafb00e
100644
(file)
--- a/
tests/62_offset_padding.ml
+++ b/
tests/62_offset_padding.ml
@@
-28,8
+28,8
@@
let test_bits bits p i n j m k =
j' : 8 : offset(n);
k' : 8 : offset(m) } when i = i' && j = j' && k = k' -> () (* ok *)
| { _ } ->
j' : 8 : offset(n);
k' : 8 : offset(m) } when i = i' && j = j' && k = k' -> () (* ok *)
| { _ } ->
- failwith (sprintf "6
0_simple_offset: test_bits: faile
d %d %d %d %d %d"
- i n j m k)
+ failwith (sprintf "6
2_offset_padding: test_bits: failed %
d %d %d %d %d %d"
+
p
i n j m k)
let () =
for p = 1 to 4 do
let () =
for p = 1 to 4 do