Fix an error message.
authorRichard W.M. Jones <rich@annexia.org>
Thu, 17 Jul 2008 10:33:49 +0000 (10:33 +0000)
committerRichard W.M. Jones <rich@annexia.org>
Thu, 17 Jul 2008 10:33:49 +0000 (10:33 +0000)
tests/62_offset_padding.ml

index 46ed300..dafb00e 100644 (file)
@@ -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"
+                 i n j m k)
 
 let () =
   for p = 1 to 4 do