From: Richard W.M. Jones Date: Thu, 28 May 2009 20:06:40 +0000 (+0100) Subject: To-do: Note that we need to finish the bindings tests. X-Git-Tag: 1.0.36~2 X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=d6a0adf00900b05b7e9e14a29caf86fb30dec6a9;p=libguestfs.git To-do: Note that we need to finish the bindings tests. --- diff --git a/TODO b/TODO index 8244b60..d0e2323 100644 --- a/TODO +++ b/TODO @@ -30,6 +30,11 @@ Complete the Haskell bindings (see discussion on haskell-cafe). ---------------------------------------------------------------------- +Complete the bindings tests - must test the return values and +error cases. + +---------------------------------------------------------------------- + For virt-inspector: - Needs a "query mode", like "are (Xen|KVM) PV drivers installed?" diff --git a/src/generator.ml b/src/generator.ml index 2cf96ee..556b1a9 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -7629,6 +7629,8 @@ and generate_lang_bindtests call = CallStringList ["1"]; CallBool false; CallInt 0; CallString ""; CallString ""] + (* XXX Add here tests of the return and error functions. *) + let output_to filename = let filename_new = filename ^ ".new" in chan := open_out filename_new;