From 4c5e16867283de5cd28ff7d3135b110cad78eac5 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Sun, 18 May 2008 22:27:25 +0000 Subject: [PATCH] Minor code rearrangement, improve an error message. --- tests/11_match_ints.ml | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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 -- 1.8.3.1