From: Richard W.M. Jones <rich@annexia.org>
Date: Sun, 18 May 2008 22:27:25 +0000 (+0000)
Subject: Minor code rearrangement, improve an error message.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=4c5e16867283de5cd28ff7d3135b110cad78eac5;p=ocaml-bitstring.git

Minor code rearrangement, improve an error message.
---

diff --git a/tests/11_match_ints.ml b/tests/11_match_ints.ml
index c2a2b8b..e8f54b9 100644
--- a/tests/11_match_ints.ml
+++ b/tests/11_match_ints.ml
@@ -34,17 +34,16 @@ let () =
       let actual =
 	let rec loop bits =
 	  bitmatch bits with
-	  | { i : bitlen; rest : -1 : bitstring } ->
-	      if Bitmatch.bitstring_length rest > 0 then
-		i :: loop rest
-	      else
-		[i]
+	  | { i : bitlen; rest : -1 : bitstring }
+	      when Bitmatch.bitstring_length rest = 0 -> [i]
+	  | { i : bitlen; rest : -1 : bitstring } -> i :: loop rest
 	  | { _ } ->
 	      failwith (sprintf "loop failed with len = %d, bitlen = %d"
 			  len bitlen)
 	in
 	loop bits in
       if actual <> expected then
-	failwith (sprintf "match bits: failed on 1 bit test, len = %d" len)
+	failwith (sprintf "match ints: failed on test, len = %d, bitlen = %d"
+		    len bitlen)
     done
   done