1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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");
;;
|
