X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=inline;f=src%2Fgenerator.ml;h=fc320faf6584c4d3e22e3857d29cee57fc4437e8;hb=5b0a37c47aaec0a753a00026b52c305442fd6678;hp=a2b40b86133c7de789903013f38d46be4b4286c8;hpb=924df6051655ad145eca78e50dff84166b7124f3;p=libguestfs.git

diff --git a/src/generator.ml b/src/generator.ml
index a2b40b8..fc320fa 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -659,7 +659,7 @@ qemu subprocess, then this will return an error.
 This is an internal call used for debugging and testing.");
 
   ("version", (RStruct ("version", "version"), []), -1, [],
-   [InitBasicFS, Always, TestOutputStruct (
+   [InitNone, Always, TestOutputStruct (
       [["version"]], [CompareWithInt ("major", 1)])],
    "get the library version number",
    "\
@@ -4643,7 +4643,11 @@ static int %s (void)
 
 and generate_one_test_body name i test_name init test =
   (match init with
-   | InitNone
+   | InitNone (* XXX at some point, InitNone and InitEmpty became
+	       * folded together as the same thing.  Really we should
+	       * make InitNone do nothing at all, but the tests may
+	       * need to be checked to make sure this is OK.
+	       *)
    | InitEmpty ->
        pr "  /* InitNone|InitEmpty for %s */\n" test_name;
        List.iter (generate_test_command_call test_name)