mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml: Fix bindtests when passing negative optional arguments.

Browse Source
This commit is contained in:
Richard W.M. Jones
2012-08-15 14:49:01 +01:00
parent f6de298d04
commit 9526f632d8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
generator/generator_bindtests.ml
View File

@@ -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 ^ ":" ^