From d6a0adf00900b05b7e9e14a29caf86fb30dec6a9 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 28 May 2009 21:06:40 +0100 Subject: [PATCH] To-do: Note that we need to finish the bindings tests. --- TODO | 5 +++++ src/generator.ml | 2 ++ 2 files changed, 7 insertions(+) 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; -- 1.8.3.1