2 files changed, 7 insertions, 0 deletions
diff --git a/TODO b/TODO
index 8244b602..d0e23230 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 2cf96ee0..556b1a9f 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;