cpp-thirdparty/winx64/bin/swigwin-4.0.0/Examples/test-suite/ocaml/conversion_runme.ml

open Swig
open Conversion

let _ =
  let bar = new_Bar '() in
  assert (bar -> ":classof" () as string = "Bar");
  let foo = bar -> toFoo () in
  assert (foo -> ":classof" () as string = "Foo");
;;