From 9526f632d80f8d66ecf8a7da5444e1446129fceb Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Wed, 15 Aug 2012 14:49:01 +0100 Subject: [PATCH] ocaml: Fix bindtests when passing negative optional arguments. --- generator/generator_bindtests.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/generator/generator_bindtests.ml b/generator/generator_bindtests.ml index 92436a7da..371ad880b 100644 --- a/generator/generator_bindtests.ml +++ b/generator/generator_bindtests.ml @@ -327,8 +327,8 @@ let () = List.map ( function | CallOBool (n, v) -> "~" ^ n ^ ":" ^ string_of_bool v - | CallOInt (n, v) -> "~" ^ n ^ ":" ^ string_of_int v - | CallOInt64 (n, v) -> "~" ^ n ^ ":" ^ Int64.to_string v ^ "L" + | CallOInt (n, v) -> "~" ^ n ^ ":(" ^ string_of_int v ^ ")" + | CallOInt64 (n, v) -> "~" ^ n ^ ":(" ^ Int64.to_string v ^ "L)" | CallOString (n, v) -> "~" ^ n ^ ":\"" ^ v ^ "\"" | CallOStringList (n, xs) -> "~" ^ n ^ ":" ^