From b718bb9491f306efdd560b7fdbb526f8d49b5fc0 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Wed, 9 Nov 2011 17:50:37 +0000 Subject: [PATCH] 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. (cherry picked from commit 22c72b911e65b93cfd049f42e6bd1b9ad7d55299) --- ocaml/t/guestfs_400_events.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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.8.3.1