14 lines
332 B
OCaml
14 lines
332 B
OCaml
|
open Swig
|
||
|
|
open Swig_exception
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let c = new_Circle '(10) and s = new_Square '(10) in
|
||
|
|
assert (_Shape_nshapes '() as int = 2);
|
||
|
|
try
|
||
|
|
ignore (c -> throwException ()); assert false
|
||
|
|
with Sys_error msg -> assert (msg = "OK");
|
||
|
|
let _ = c -> "~" () in
|
||
|
|
let _ = s -> "~" () in
|
||
|
|
assert (_Shape_nshapes '() as int = 0);
|
||
|
|
;;
|