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 22:08:20 +0000 |
| commit | b718bb9491f306efdd560b7fdbb526f8d49b5fc0 (patch) | |
| tree | c0037a8d6c2d55030edecef14704b24c8673d40f | |
| parent | 3bde9fdffdb74183f7bf1315eb402918d3b13ed1 (diff) | |
| download | libguestfs-b718bb9491f306efdd560b7fdbb526f8d49b5fc0.tar.gz libguestfs-b718bb9491f306efdd560b7fdbb526f8d49b5fc0.tar.xz libguestfs-b718bb9491f306efdd560b7fdbb526f8d49b5fc0.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.
(cherry picked from commit 22c72b911e65b93cfd049f42e6bd1b9ad7d55299)
| -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 |