X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=tests%2F62_offset_padding.ml;h=dafb00ebc427f013b313d81f198bafa8f6e04b62;hb=573b0f1c4feb7e3b7abf29a835938367ef896867;hp=46ed3008c66a9f3e46f5b00fb9e0b2399f14f636;hpb=da3ce28b63d1166bfaf053acf90229f85a0e28e5;p=ocaml-bitstring.git

diff --git a/tests/62_offset_padding.ml b/tests/62_offset_padding.ml
index 46ed300..dafb00e 100644
--- 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 "60_simple_offset: test_bits: failed %d %d %d %d %d"
-		  i n j m k)
+      failwith (sprintf "62_offset_padding: test_bits: failed %d %d %d %d %d %d"
+		  p i n j m k)
 
 let () =
   for p = 1 to 4 do