From: Richard W.M. Jones <rjones@redhat.com>
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;