From 22c72b911e65b93cfd049f42e6bd1b9ad7d55299 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Wed, 9 Nov 2011 17:50:37 +0000
Subject: ocaml: Catch EVENT_ENTER case in test.
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 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'ocaml')
diff --git a/ocaml/t/guestfs_400_events.ml b/ocaml/t/guestfs_400_events.ml
index 66dc3c35..4585a09d 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
--
cgit