19 lines
1.2 KiB
OCaml
19 lines
1.2 KiB
OCaml
open Swig
|
|
open Li_std_except
|
|
|
|
let _ =
|
|
let t = new_Test '() in
|
|
try let _ = t -> throw_bad_cast () in assert false with Failure s -> ();
|
|
try let _ = t -> throw_bad_exception () in assert false with Failure s -> ();
|
|
try let _ = t -> throw_domain_error () in assert false with Failure s -> assert (s = "oops");
|
|
try let _ = t -> throw_exception () in assert false with Failure s -> ();
|
|
try let _ = t -> throw_invalid_argument () in assert false with Invalid_argument s -> assert (s = "oops");
|
|
try let _ = t -> throw_length_error () in assert false with Failure s -> assert (s = "oops");
|
|
try let _ = t -> throw_logic_error () in assert false with Failure s -> assert (s = "oops");
|
|
try let _ = t -> throw_out_of_range () in assert false with Failure s -> assert (s = "oops");
|
|
try let _ = t -> throw_overflow_error () in assert false with Failure s -> assert (s = "oops");
|
|
try let _ = t -> throw_range_error () in assert false with Failure s -> assert (s = "oops");
|
|
try let _ = t -> throw_runtime_error () in assert false with Failure s -> assert (s = "oops");
|
|
try let _ = t -> throw_underflow_error () in assert false with Failure s -> assert (s = "oops");
|
|
;;
|