From 721810d3fe419bc626aa3d82b4878e4b6bcab281 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 17 Jul 2008 10:33:49 +0000 Subject: [PATCH] Fix an error message. --- tests/62_offset_padding.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.8.3.1