Examples/test-suite/ocaml/overload_extend_runme.ml

open Swig
open Overload_extend

let _ =
  let f = new_Foo '() in
  assert (f -> test () as int = 0);
  assert (f -> test (3) as int = 1);
  assert (f -> test ("hello") as int = 2);
  assert (f -> test (3., 2.) as float = 5.);
  assert (f -> test (3.) as float = 1003.)
;;