[Libguestfs] [PATCH 3/5] ocaml: Catch EVENT_ENTER case in test.

Richard W.M. Jones
Wed, 09 Nov 2011 18:23:41 -0000

For some reason we are not compiling the tests with -warn-error so
this problem was not noticed before.

This fixes commit 9420eaf44ec4067c3740b91b0be0fede08a0c515.
---
 ocaml/t/guestfs_400_events.ml |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/ocaml/t/guestfs_400_events.ml b/ocaml/t/guestfs_400_events.ml
index 66dc3c3..4585a09 100644
--- a/ocaml/t/guestfs_400_events.ml
+++ b/ocaml/t/guestfs_400_events.ml
@@ -27,7 +27,8 @@ let log g ev eh buf array      | Guestfs.EVENT_PROGRESS ->
"progress"
     | Guestfs.EVENT_APPLIANCE -> "appliance"
     | Guestfs.EVENT_LIBRARY -> "library"
-    | Guestfs.EVENT_TRACE -> "trace" in
+    | Guestfs.EVENT_TRACE -> "trace"
+    | Guestfs.EVENT_ENTER -> "enter" in

   let eh : int = Obj.magic eh in

--
1.7.6