Examples/test-suite/ocaml/li_std_except_runme.ml

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");
;;