X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_capitests.ml;fp=generator%2Fgenerator_capitests.ml;h=190e10f7e387e87164b6690ee51b01454c92ff4e;hp=325b37c5c8bfa8f9f95e2f6f28736a1f014bdb3b;hb=4ada0a7815075c9cbe9d8b00da791c105ae739a9;hpb=eaedf025f5c45a4e05cbf25e145215d48bea8f8d

diff --git a/generator/generator_capitests.ml b/generator/generator_capitests.ml
index 325b37c..190e10f 100644
--- a/generator/generator_capitests.ml
+++ b/generator/generator_capitests.ml
@@ -744,6 +744,9 @@ and generate_test_command_call ?(expect_error = false) ?test test_name cmd =
             ) strs;
             pr "      NULL\n";
             pr "    };\n";
+        | Pointer _, _ ->
+            (* Difficult to make these pointers in order to run a test. *)
+            assert false
       ) (List.combine (snd style) args);
 
       let error_code =
@@ -799,6 +802,7 @@ and generate_test_command_call ?(expect_error = false) ?test test_name cmd =
             pr ", %Ld" i
         | Bool _, arg ->
             let b = bool_of_string arg in pr ", %d" (if b then 1 else 0)
+        | Pointer _, _ -> assert false
       ) (List.combine (snd style) args);
 
       (match fst style with