mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml: Catch EVENT_ENTER case in test.

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

This fixes commit 9420eaf44e.
This commit is contained in:
Richard W.M. Jones
2011-11-09 17:50:37 +00:00
parent 04ea1375c5
commit 22c72b911e
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ocaml/t/guestfs_400_events.ml
View File

@@ -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