X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=tests%2F06_ints2.ml;h=3587b4ad8c8b98eda725a522274b944bebe8c5dc;hb=caffff12b3ece8197627c60105afa16a35822c32;hp=c0bd76e794db43f7167297a8669e6b4ec1418726;hpb=65d01f251b91df36445216d1a44d8f2d6cc4fd8d;p=ocaml-bitstring.git

diff --git a/tests/06_ints2.ml b/tests/06_ints2.ml
index c0bd76e..3587b4a 100644
--- a/tests/06_ints2.ml
+++ b/tests/06_ints2.ml
@@ -1,13 +1,13 @@
 (* Extract some simple integers.
- * $Id: 06_ints2.ml,v 1.1 2008-04-01 08:56:43 rjones Exp $
+ * $Id: 06_ints2.ml,v 1.2 2008-04-25 11:08:43 rjones Exp $
  *)
 
 let bits = Bitmatch.make_bitstring 16 '\xcf' (* makes the string 0xcfcf *)
 
 let () =
   bitmatch bits with
-  | n0 : 2; n1 : 2; n2 : 2; n3 : 2; n4 : 2; n5 : 2; n6 : 2; n7 : 2;
-    rest : -1 : bitstring ->
+  | { n0 : 2; n1 : 2; n2 : 2; n3 : 2; n4 : 2; n5 : 2; n6 : 2; n7 : 2;
+      rest : -1 : bitstring } ->
       assert (n0 = 0x3); (* 0xc *)
       assert (n1 = 0x0);
       assert (n2 = 0x3); (* 0xf *)
@@ -20,5 +20,5 @@ let () =
       let _, off, len = rest in
       assert (off = 16 && len = 0) (* no further data *)
 
-  | _ ->
+  | { _ } ->
       failwith "error: did not match\n"