To-do: Note that we need to finish the bindings tests.

diff --git a/TODO b/TODO
index 8244b60..d0e2323 100644 (file)
--- 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 (executable)
--- 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;