assert_exn : ('a -> bool) -> 'a -> exn -> 'a
- null []; > val it = true : bool - assert_exn null ([]:int list) (Fail "non-empty list"); > val it = [] : int list - null [1]; > false : bool - assert_exn null [1] (Fail "non-empty list");; ! Uncaught exception: ! Fail "non-empty list"