Examples/test-suite/ocaml/using_extend_runme.ml

open Swig
open Using_extend

let _ =
  let f = new_FooBar '() in
  assert (f -> blah (3) as int = 3);
  assert (f -> blah (3.5) as float = 3.5);
  assert (f -> blah ("hello") as string = "hello");
  assert (f -> blah (3, 4) as int = 7);
  assert (f -> blah (3.5, 7.5) as float = 11.);
  assert (f -> duh (3) as int = 3)
;;