git.annexia.org
/
ocaml-bitstring.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
67663c5
)
Fix an error message.
author
Richard W.M. Jones
<rich@annexia.org>
Thu, 17 Jul 2008 10:33:49 +0000
(10:33 +0000)
committer
Richard W.M. Jones
<rich@annexia.org>
Thu, 17 Jul 2008 10:33:49 +0000
(10:33 +0000)
tests/62_offset_padding.ml
patch
|
blob
|
history
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 *)
| { _ } ->
- 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