diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2011-11-09 17:50:37 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2011-11-09 21:21:48 +0000 |
| commit | 22c72b911e65b93cfd049f42e6bd1b9ad7d55299 (patch) | |
| tree | 95938d31ec4be3e1f1cd3cb3676b8e9f7ae734bb /ocaml | |
| parent | 04ea1375c55aa67df4e7fc61dbb534111767f3b6 (diff) | |
| download | libguestfs-22c72b911e65b93cfd049f42e6bd1b9ad7d55299.tar.gz libguestfs-22c72b911e65b93cfd049f42e6bd1b9ad7d55299.tar.xz libguestfs-22c72b911e65b93cfd049f42e6bd1b9ad7d55299.zip | |
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.
Diffstat (limited to 'ocaml')
| -rw-r--r-- | 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 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 |