ocaml: Catch EVENT_ENTER case in test.