Examples/test-suite/ocaml/using_inherit_runme.ml

open Swig
open Using_inherit

let _ =
  let b = new_Bar '() in
  assert (b -> test (3) as int = 3);
  assert (b -> test (3.5) as float = 3.5);
  let b = new_Bar2 '() in
  assert (b -> test (3) as int = 6);
  assert (b -> test (3.5) as float = 7.0);
  let b = new_Bar3 '() in
  assert (b -> test (3) as int = 6);
  assert (b -> test (3.5) as float = 7.0);
  let b = new_Bar4 '() in
  assert (b -> test (3) as int = 6);
  assert (b -> test (3.5) as float = 7.0);

  let f = new_Fred1 '() in
  assert (f -> test (3) as int = 3);
  assert (f -> test (3.5) as float = 7.0);
  let f = new_Fred2 '() in
  assert (f -> test (3) as int = 3);
  assert (f -> test (3.5) as float = 7.0)
;;