Examples/test-suite/ocaml/swig_exception_runme.ml

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